Question

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

Answer 1

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;