Дан целочисленный массив из 30 элементов. Найти количество ...
Дан целочисленный массив из 30 элементов. Найти количество элементов, равных максимальному. PASCAL
Есть ответ
12.12.2022
114
Ответ
program raf105;
var
a:array[1..30] of integer;
max,i,c:integer;
begin
max:= -10000;
writeln('Заполните массив');
for i:=1 to 30 do
begin
readln(a[i]);
if a[i] > max
then max:= a[i];
end;
for i:=1 to 30 do
if a[i] = max
then c+= 1;
writeln('Количество элементов равных максимальному: ',c);
end.
PascalABC 3.4.2
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022