CG
Cdtnkfyj Gfmhv
Найти значение максимального элемента массива. Если таких элементов несколько, то определить сколько их.
Язык Pascal ABC
Язык Pascal ABC
begin
max:=0;
t:=0;
for i:=1 to n do
begin
if max then
gebin
max:=A;
t:=t+1;
end;
end;
writeln('Максимальный элемент ',max,'Количество максимальных ',t);
readln;
end.
найди максимальное и потом в цикле сравни его со всем массивом, не получится, пиши
Пузырьком млин! чему вас только учат