Курсовая работа: Основы программирования и алгоритмизации

Приложение 3

Текст программы к Заданию №3

program Zadanie3;

var

i,j,K,n,m: byte;

S,Pr: real;

a: array [1..255,1..255] of real;

begin

writeln ('Введите размерность массива N x M:');

readln (n,m);

for i:=1 to n do

for j:=1 to m do

begin

writeln ('Введите a[',i,',',j,'] : ');

readln (a[i,j]);

end;

for i:=2 to n do

for j:=1 to (i-1) do

S:=S+a[i,j];

Pr:=1;

for j:=2 to m do

for i:=1 to (j-1) do

if a[i,j]<>0 then Pr:=Pr*a[i,j];

if n>m then n:=m;

for i:=1 to n do

begin

j:=i;

if abs(a[i,j])<=1 then K:=K+1;