Заполните массив из 10 элементов случайными числами в интервале [-10..10] и найти в нём максимальный и минимальный элементы и их номера
исходный массив : 4 -5 3 10 -4 -6 8 - 10 1 0
максимальный а[4]=10 минимальный a[8]= 10
Нет комментариев
Ответы
Гость Var
a:array[1..10] of integer;
i,max,min:integer;
begin
max:=-11;
min:=11;
for i:=1 to 10 do a[i]:=-10+random(20);
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i]>max then max:=a[i];
for i:=1 to 10 do
if a[i]<min then min:=a[i];
writeln('max: ', max);
writeln('min: ', min);
end.
Нет комментариев
Похожие вопросы
Информатика
Помогите решить, очень надо...
Информатика
Срочно, помогите пожалуйста...
Список предметов
