Дан массив из 10 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение. Надо написать на Паскале, объяснить при этом всё, ещё и блок схему надо

Question

Информатика

Натоша

14 июля, 18:17

Дан массив из 10 целых чисел. Определите, сколько элементов этого массива имеют максимальное значение. Надо написать на Паскале, объяснить при этом всё, ещё и блок схему надо

+1

Ответы (2)

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

Орина · Answer 1

Var m:array[1 ... 10] of integer; i, max, cnt:integer;

begin

max : = - 1000;

write ('Massive: ') ;

for i : = 1 to 10 do begin

m[i] : = random (11) - 5;

write (m[i],' ') ;

if m[i] > max then begin inc (cnt) ; max : = m[i]; end;

end;

writeln;

writeln ('Максимальное число: ', max) ;

writeln ('Всего максимальных чисел: ', cnt) ;

end.

Риммушка · Answer 2

Var m:array[1 ... 10] of integer; i, max, cnt:integer;

begin

max : = - 1000;

write ('Massive: ') ;

for i : = 1 to 10 do begin

m[i] : = random (11) - 5;

write (m[i],' ') ;

if m[i] > max then begin inc (cnt) ; max : = m[i]; end;

end;

writeln;

writeln ('Максимальное число: ', max) ;

writeln ('Всего максимальных чисел: ', cnt) ;

end.