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

Мама1мама2 Мама1мама2    3   02.06.2019 04:10    2

Ответы
kunicyna1805 kunicyna1805  01.10.2020 16:54
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]<min then min:=a[i];
end;
write('Максимальный = ',max, ' Минимальный = ', min);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика