На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Напишите программу, которая находит минимальное и максимальное среди полученных чисел.

179

218

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

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

Dimatrubilov

Информатика

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

Const n = 3; m = 4; var z: array[1..n,1..m] of integer; i,j,b: integer; begin randomize; writeln('исходный массив: '); for i: = 1 to n do begin for j: = 1 to m do begin z[i,j]: =random(21)-10; write(z[i,j]: 3,' ') end; writeln; end; writeln; writeln('второй и четвёртый столбец переставлены: '); for i: = 1 to n do begin b: =z[i,2]; z[i,2]: =z[i,4]; z[i,4]: =b; end; for i: = 1 to n do begin for j: = 1 to m do write(z[i,j]: 3,' '); writeln; end; end. пример: исходный массив: -7 2 -2 3 9 -6 -6 1 -9 10 -9 3 второй и четвёртый столбец переставлены: -7 3 -2 2 9 1 -6 -6 -9 3 -9 10