Создать массив из 20 случ. чисел на промежутке от -10 до 30 , отсортировать массив по убыванию на экран вывести исходный и отсортированный массив

185

422

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

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

яирхаФ

Информатика

4,5(95 оценок)

Var a: array[1..20] of integer; i,j,x: integer; begin randomize; writeln('исходный массив'); for i: =1 to 20 do begin a[i]: =-10+random(40); write(a[i]: 4); end; writeln; for i: =1 to 19 do for j: =i+1 to 20 do if a[i]< a[j] then begin x: =a[i]; a[i]: =a[j]; a[j]: =x; end; writeln('новый массив'); for i: =1 to 20 do write(a[i]: 4); readln; end.

sahabg

Информатика

4,8(72 оценок)

1. 2 2. 1 3. электронные таблицы. 4. 1 5. 3 6. 4 7. нет данных о содержимом ячеек a1 и b1 8. 2 9. 4 10. 1 11. нет данных о содержимом ячеек в диапазоне от a1 до a7