Даны целые положительные числа m и n и набор из м чисел. сформировать матрицу размера м х n , у которой в каждом столбце содержатся все числа из исходного набора (в том же порядке ) . из pascal abc.

112

495

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

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

nbuiluk

Информатика

4,6(15 оценок)

Const m = 8; n = 7; var a: array[1..m, 1..n] of integer; i, j: integer; begin writeln('введите через пробел ', m, ' чисел'); for i : = 1 to m do begin read(a[i, 1]); for j : = 2 to n do a[i, j] : = a[i, 1] end; writeln('сформированный массив'); for i : = 1 to m do begin for j : = 1 to n do write(a[i, j]: 5); writeln end end. тестовое решение: введите через пробел 8 чисел 4 -6 10 93 345 -32 0 11 сформированный массив 4 4 4 4 4 4 4 -6 -6 -6 -6 -6 -6 -6 10 10 10 10 10 10 10 93 93 93 93 93 93 93 345 345 345 345 345 345 345 -32 -32 -32 -32 -32 -32 -32 0 0 0 0 0 0 0 11 11 11 11 11 11 11

akniet8

Информатика

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

1) var a, b, s: real; begin read(a, b); s: =a*b; writeln(s); end. 2) var x, y, max: integer; begin read(x, y); if x> y then max: =x else max: =y; writeln(max); end. 3) var i: integer; begin for i: =1 to 10 do writeln(i); end. 4) var i, n: integer; begin n: =4; for i: =1 to 7 do begin n: =2*n; writeln(n); end. 5) var a, n, max: integer; begin max: =-maxint; read(n); for i: =1 to n do begin read(a); if a> max then max: =a; end; writeln(max); end.