Задание № 2:
1. Составьте программу для подсчета числа элементов,
равных максимальному, в числовом массиве из 30 элементов.
Program zadacha;
const n =30;
var a: array[1..n] of integer;
i, k, kmax: integer;
begin
for i:=1 to n do
begin
writeln('введите',i,'элемент');
readln(a[i]);
end;
k := 1;
kmax := 1;
for i:=2 to n do begin
if a[i] = a[i-1] then
k := k + 1
else k := 1;
?
ОтветитьУдалить