Напишите программу на паскале.
Сформировать массив n(6) случайных чисел,выбранных на интервале от -5 до 8,вывести на экран первоначальный массив,отсортированный по возрастанию и сумму элементов массива

1

Ответы и объяснения

Лучший Ответ!
2014-04-12T13:16:38+04:00
Var a:array[1..6] of integer;
i,j,s,p:integer;
begin
for i:=1 to 6 do begin
a[i]:=random(-5,8);
s+=a[i];
write(a[i],' ');
end;
for i:=1 to 5 do
  for j:=1 to 6-i do
  if a[j]>a[j+1] then begin
    p:=a[j];
    a[j]:=a[j+1];
    a[j+1]:=p;
    end;
writeln;
for i:=1 to 6 do
write(a[i], ' ');
writeln;
writeln(s);
end.