Перепишите программу под pascal using system; namespace consoleapplication { class class { static int [] input () { console.writeline("введите размерность массива"); int n=int.parse(console.; int []a=new int[n]; for (int i = 0; i < n; ++i) { console.write("a[{0}]= ", i); a[i]=int.parse(console.; } return a; } static int max(int[] a) { int max=a[0]; for (int i = 1; i < a.length; ++i) if (a[i] > max) max=a[i]; return max; } static void main() { int[] myarray=input(); int max=max(myarray); int kol=0; for (int i=0; i if (myarray[i]==max)++kol; console.writeline("количество максимальных элементов = "+kol); } } }

170

420

Посмотреть ответы 2

Ответы на вопрос:

chertan98

Информатика

4,5(26 оценок)

Var a: array[1..10000] of integer; n,i,max,k: integer; begin readln(n); for i: =1 to n do read(a[i]); max: =a[1]; k: =1; for i: =2 to n do begin if a[i]> max then begin max: =a[i]; k: =1; end else if a[i]=max then k: =k+1; end; writeln('k = ',k); end. пример: 61 2 3 2 3 3k = 3

Karinarikfeeet

Информатика

4,7(40 оценок)

Var p,a,b,x,y: real; begin write('x = '); readln(x); write('y = '); readln(y); a: =x+y; b: =x*x+y*y; p: =sqr(a)+a*cos(a+b)+a*sqrt(b)/(a+b); writeln('a = ',a); writeln('b = ',b); writeln('p = ',p); end.