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

Question

Информатика

Иероним

1 мая, 15:51

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

+4

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