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

Question

Информатика

Николич

21 мая, 23:17

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

+3

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