Перепишите программу под 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); } } }
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.
Пример:
6
1 2 3 2 3 3
k = 3