перепишите программу под 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);
}
}
}
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);
}
}
}
More Questions From This User See All
Answers & Comments
Verified answer
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