перепишите программку под pascalusing System;namespace ConsoleApplicationclass

Перепишите программку под 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 lt; 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 lt; a.Length; ++i)

if (a[i] gt; 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);

Андрей Перно 2019-01-18 16:59:13

Turbo, Free либо ABC.NET?

Степа Тиров 2019-01-18 17:00:57

abc