Точно и чётко сформулируйте условия...

drago72

Точно и чётко сформулируйте условия задачи, которая решается в данной программе:
Program Kr_1;
Const NMax=100;
Type Linmass =Array[1..NMax]Of integer;
Var A :Linmass; N,I,M,S:Integer;
Begin
Write('Количество элементов массива?');Readln(N);
For I :=1to N do
Begin
Write('Введите A[',I,']');Readln(A[N]);
End;
M:=A[1];S:=1;
For I:=2 To N do
Begin
If A[I]=M Then S:=Succ(S);
If A[I]>M Then Begin M:=A[I];S:=1 End
End;
Writeln ('Ответ',S);
End.
1 ответ

drago72

drago72, Думаю задание звучит так: Создать массив с числами и найти, сколько раз в нем повторяется максимальное число. Writeln ('Ответ',S) покажет кол-во повторов. Например в массиве 1 1 4 1 4 3 4 S = 3; т.к. максимальное число 4 встречается 3 раза. функция Succ аналогична функции Inc - т.е. увеличивает значение переменной на единицу