перепишите программу под pascalusing System;namespace ConsoleApplication{class Class{static int [] Input (){Console.WriteLine("введите размерность массива");int n=int.Parse(Console.ReadLine());int []a=new int[n];for (int i = 0; i < n; ++i){Console.Write("a[{0}]= ", i);a[i]=int.Parse(Console.ReadLine());}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; iif (myArray[i]==max)++kol;Console.WriteLine("Количество максимальных элементов = "+kol);}}}

Question

Информатика

Савел

5 год назад

перепишите программу под pascalusing System;namespace ConsoleApplication{class Class{static int [] Input (){Console.WriteLine("введите размерность массива");int n=int.Parse(Console.ReadLine());int []a=new int[n];for (int i = 0; i < n; ++i){Console.Write("a[{0}]= ", i);a[i]=int.Parse(Console.ReadLine());}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; iif (myArray[i]==max)++kol;Console.WriteLine("Количество максимальных элементов = "+kol);}}}

ОТВЕТЫ

Sofia Ritva

Oct 24, 2020

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

400