Question

Напишите пожалуйста в Паскаль.
Массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. Вывести полученный массив на экран в строчку.Найти сумму наибольшего и наименьшего элементов массива. (Использовать пузырьковую сортировку).

Answer 1

var a,b,c:integer; m2:array [1..15] of integer;
begin
for a:=1 to 15 do
begin
m2[a]:= random (95)-25;
write (m2[a], ' ');
end;
for a:=1 to 15 do
for c:=1 to 14 do
if m2[c]<m2[c+1] then
begin
b:=m2[c];
m2[c]:=m2[c+1];
m2[c+1]:=b;
end;
writeln (m2[1], ' ',m2[15]);end.