Pabc. дана матрица a(5,6). составить массив, содержащий минимальные элементы каждой строки.

267

299

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

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

moskvina08

Информатика

4,4(71 оценок)

Const m=5; n=6; var a: array[1..m,1..n] of integer; b: array[1..m] of integer; i,j,min: integer; begin randomize; writeln('исходный массив: '); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(50); write(a[i,j]: 4); end; writeln; end; for i: =1 to m do begin min: =a[i,1]; for j: =2 to n do if a[i,j]< min then min: =a[i,j]; b[i]: =min; end; writeln('полученный массив: '); for i: =1 to m do write(b[i]: 4); writeln; end. пример: исходный массив: 44 30 35 16 47 3 30 15 23 40 15 46 46 11 2 3 16 40 19 17 8 22 10 25 41 23 9 47 7 36 полученный массив: 3 15 2 8 7

EvdokiaNi

Информатика

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

Var a: array [1..5, 1..6] of real; b: array [1..5] of real; i, j: integer; begin for i: =1 to 5 do begin read(a[i,1]); b[i]: =a[i,1]; for j: =2 to 6 do begin read(a[i,j]); {ввод элементов массива в цикле с параметром} if (b[i]> a[i,j]) then b[i]: =a[i,j]; end; writeln; {для перехода на новую строку} end; for i: =1 to 5 do write(b[i], ' '); readln; end.