Регистрация
rotorjec08
01.03.2021 12:57
Информатика
Есть ответ 👍

Как работать со списками? ​

180
290
Посмотреть ответы 2

Ответы на вопрос:

Bairachock
Bairachock
4,6(48 оценок)

Я не знаю сарань

ЧеловекАнанас
ЧеловекАнанас
4,4(34 оценок)
Var n,i,j,c: integer; a: array[1..201] of integer; begin   writeln('введите колөво элементов массива');   readln(n);   for i: =1 to n do a[i]: =-100+random(201);   writeln('исходный массив');   for i: =1 to n do write(a[i]: 5);   writeln;   for i: =1 to n-1 do   for j: =i+1 to n do   if a[i]< a[j] then   begin       c: =a[j];       a[j]: =a[i];       a[i]: =c;   end;   writeln('отсортированный массив');   for i: =1 to n do   write(a[i]: 5);   writeln;   end.

Популярно: Информатика