Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы
Сформировать массив из 15 произвольных чисел. Определить максимальный и минимальный элементы массива, напечатать их значения и индексы
Гость
Ответ(ы) на вопрос:
Гость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]