Дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение
Дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение
Гость
Ответ(ы) на вопрос:
Гостьconst n=10;
var i,b,max:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
a[i]:=random(1,50);
end;
writeln(a);
max:=a[1];
for i:=1 to n do
begin
if max
Не нашли ответ?
Похожие вопросы