1. Дан массив a размером 10 элементов, заполненный датчиком случайных чисел. Найдите минимальный элемент массива.
2. Дан массив a размером 10 элементов, заполненный датчиком случайных чисел. Найдите максимальный элемент массива.
3. Дан массив a размером 10 элементов, заполненный датчиком случайных чисел. Найдите сумму минимального и максимального элемента массива.
a — это название массива
const razmer = 2001;
var a:array [1..100] of integer;
b:array [0..100,0..100] of integer;
i,j,min:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 100 do
begin
a[i]:=random(razmer)-razmer div 2;
write(a[i],' ');
b[i,0]:=a[i];
b[0,i]:=a[i];
end;
writeln;
min:=a[1]+a[2];
writeln('Все возможные значения попарных сумм:');
for i:=1 to 100 do
begin
for j:=1 to i-1 do
begin
b[i,j]:=b[0,j]+b[i,0];
write(b[i,j],' ');
if b[i,j]<min then min:=b[i,j];
end;
writeln;
end;
writeln('Наименьшее значение попарной суммы: ',min);
end.