Заполнить массив из 10-ти элементов случайными числами из интервала от [-40; 40], вывести его на экран. располочить числа в порядке убывания значений.

176

427

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

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

shishovtopking

Информатика

4,7(87 оценок)

//pascalabc.net (версия 3.1, сборка 1196 от 09.03.2016) const n = 10; var a: array [1..n] of integer; i, j, b: integer; begin for i : = 1 to n do a[i] : = random(81) - 40; writeln('элементы массива a: '); for i : = 1 to n do write(a[i], ' '); writeln; //сортировка не быстрая, но и массив маленький for j : = 1 to n do for i : = 1 to n - 1 do if a[i] < a[i + 1] then begin b : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = b; end; writeln; writeln('после сортировки : '); for i : = 1 to n do write(a[i], ' '); writeln; end.