Решение. writeln('Исходный массив:');

uses crt;

const n=4;

m=4;

var i,j:integer;

x:array[1..n,1..m] of integer;

begin

clrscr;

randomize;

writeln('Исходный массив:');

for i:=1 to n do begin

for j:=1 to m do begin

x[i,j]:=random(11)-5;

write(x[i,j]:4)

end;

writeln

end;

writeln('Ответ: ненулевые элементы матрицы');

for i:=1 to n do

for j:=1 to m do

if x[i,j]<>0 then write(x[i,j], ' ');

writeln

end

Задача № 3

Дан двумерный массив. Посчитать сумму положительных элементов главной диагонали массива.

Решение

uses crt;

const n=5;

m=5;

var i,j,s:integer;

x:array[1..n,1..m] of integer;

begin

clrscr;

randomize;

writeln('Исходный массив:');

for i:=1 to n do begin

for j:=1 to m do begin

x[i,j]:=random(51)-25;

write(x[i,j]:4)

end;

writeln

end;

s:=0;

for i:=1 to n do

if x[i,i]>0 then s:=s+x[i,i];

if s=0 then

writeln('Ответ: положительных элементов на главной диагонали нет!')

else

writeln('Ответ: S=',s);

end.