Найти количество максимальных элементов массива, используя только один оператор цикла - Pascal ABC

Формулировка задачи:

Найти количество максимальных элементов массива, используя только один оператор цикла.

Код к задаче: «Найти количество максимальных элементов массива, используя только один оператор цикла - Pascal ABC»

textual
var
    i, n, a, max, count: integer;
 
begin
write('Enter N = ');
readln(n);
max := 0;
count := 0;
writeln('Enter array:');
for i := 1 to n do
    begin
    read(a);
    if a > max
    then
        begin
        max := a;
        count := 1;
        end
    else
    if a = max
    then
        inc(count)
    end;
    writeln('Count max = ', count);
end.

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы