Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы

Question

Информатика

Вика

1 февраля, 01:55

Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы

+5

Ответы (1)

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

Терентий · Answer 1

Program z;

var a:array[1 ... 15] of integer; max, min, i:integer;

begin

for i:=1 to 15 do

begin

a[i]:=random (-10,10) ;

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

if a[i]
end;

write ('Максимальный = ', max, ' Минимальный = ', min) ;

end.