// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк (столбцов) в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var k:=0; for var i:=1 to n-1 do for var j:=n-i to n-1 do if a[i,j].IsEven then k+=1; Writeln('Количество четных элементов ниже побочной диагонали: ',k) end.
//Написано на PascalABC.NET но будет работать в простом Паскале
const
max = 12;
var N,i,j:byte;
sum:integer;
ar:array[1..max, 1..max] of integer;
begin
writeln('Вычислить сумму диагональных элементов квадратной матрицы');
write('Введите размер матрицы N = ');
readln(N);
for i:=1 to N do begin
for j:=1 to N do begin
ar[i,j]:=random(-12,12);//любые числа
write(ar[i,j]:6);
end;
writeln();
end;
sum:=0;
for i:=1 to n do
for j:=1 to n do
if ( i = (n-j+1) ) or ( i = j ) then
sum:=sum+ar[i,j];
writeln('Сумма sum = ', sum);
end.