с информатикой создать массив из 100 элементов, заполнить случайными числами от -50 до 50. Отсортировать по возрастанию. Вывести сумму трех самых больших чисел. (оценка 3-4). Сложить попарно самые большие и самые маленькие значения массива и вывести суммы на экран, т.е. складываете первый с последним, второй с предпоследним и т.д. (4-5)
Работа в Паскале я так понимаю
const N = 100;
const MAX = 50;
const MIN = -50;
var A: array [1..N] of integer;
var i,j,s,tmp: integer;
begin
randomize();
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
write(A[i],' ');
end;
writeln();
for i:=1 to N do
for j:=i to N do
begin
if (A[j]<A[i]) then
begin
tmp:=A[i];
A[i]:=A[j];
A[j]:=tmp;
end;
end;
writeln('Отсортированный массив: ');
for i:=1 to N do write(A[i],' ');
writeln();
writeln('Сумма трех самых больших чисел: ',A[100]+A[99]+A[98]);
writeln('Попарные суммы самых больших и самых маленьких: ');
for i:=1 to N do write(A[i]+A[N-i+1],' ');
end.