перепишите программу под pascal using 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; i if (myArray[i]==max)++kol; Console.WriteLine(«Количество максимальных элементов = «+kol); } } }

Вопрос школьника по предмету Информатика

перепишите программу под pascal
using 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; i
if (myArray[i]==max)++kol;

Console.WriteLine(«Количество максимальных элементов = «+kol);

}

}

}

Ответ учителя по предмету Информатика

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