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

Question

Информатика

Валюха

20 июня, 03:42

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

+5

Ответы (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.