Предмет: Информатика,
автор: VahbbetShavuhin
СРОЧНО!!!! Заполните массив 10-юслучайными числами в интервале [-7,15] и подсчитать число максимальных элементов массива.Паскаль.
Ответы
Автор ответа:
0
const
n=10;
var
a:array [1..n] of integer;
i,count,max:integer;
begin
randomize;
max:=-8; count:=1;
for i:=1 to n do
begin
a[i]:=random(23)-7;
write(a[i]:4);
if a[i]=max then
inc(count)
else if a[i]>max then
begin
count:=1;
max:=a[i];
end;
end;
writeln;
writeln('Max: ', max);
write('Count: ',count);
end.
Похожие вопросы
Предмет: Русский язык,
автор: hjkh111
Предмет: Биология,
автор: nshabanova
Предмет: Русский язык,
автор: vasiluk2000
Предмет: Математика,
автор: don08
Предмет: Математика,
автор: боря206