Перепишите программу под pascal using System; namespace ConsoleApplication { class Class...

Question

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

}

}

}

Comments

Turbo, Free или ABC.NET?

---

abc

Answer 1

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