Pascal 1)дана матрица. вывести на экран все четные строки, то есть с четными номерами. 2)заполнить матрицу так, чтобы сумма элементов в каждой строке была равна номеру этой строки.

167

190

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

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

отличник737

Информатика

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

Const z = 50; var a: array[1..z,1..z] of integer; n,i,j: integer; beginwrite('введите размер массива '); readln(n); for i: =1 to n dobeginfor j: =1 to n dobegina[i,j]: = random(100)-50; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to n dobeginfor j: =1 to n dobeginif i mod 2 =0 thenwrite(a[i,j]: 4); end; writeln; end;