Question

Массив из 10 элементов задать рандомом в диапазоне (-20, 20), отсортировать по убыванию и найти минимальный и максимальный элементы.

Answer 1

program mas_sort_ub_i_max;

const

n=10;

var

a:array[1..n] of integer;

i,t,j:integer;

begin

writeln('Массив исходный 》');

for i:=1 to n do

begin

a[i]:=random(41)-20;

write(a[i]:3,' ');

end;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i])<(a[j]) then

begin

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

writeln('Массив отсортированный 》');

for i:=1 to n do

write(a[i]:3,' ');

writeln;

writeln('Максимальный элемент 》',a[1]);

writeln('Минимальный элемент 》',a[n]);

end.