Дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение

Question

Информатика

Модеста

15 июня, 15:21

Дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение

+3

Ответы (1)

Знаете ответ на вопрос?

Мартьян · Answer 1

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
end;

writeln (a[1]) ;

writeln (a) ;

end.