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

Question

Информатика

Натаня

19 декабря, 12:23

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

+2

Ответы (1)

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

Порфирий · Answer 1

Var

a: array[1 ... 10] of integer;

m, i, s: integer;

begin

randomize;

for i : = 1 to 10 do

begin

a[i] : = random (+10) + 1;

if a[i] > m then m : = a[i];

end;

for i : = 1 to 10 do

begin

if a[i]=m then s:=s+1;

end;

writeln (s) ;

end.