Перепишите программу под 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); } } }

Dangerrr Dangerrr    3   29.08.2019 00:50    0

Ответы
vladshmko vladshmko  06.10.2020 01:43
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.

Пример:
6
1 2 3 2 3 3
k = 3
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика