1.Дана матрица а(5,5). Все элементы ниже

главной диагонали обнулить, выше - заменить на“3”,

а элементы главной диагонали заменить на “7”.

program z1;

uses crt;

var

A:array [1..5,1..5] of integer;

i,j:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 5 do

read (a[i,j]);

for i:=1 to 5 do begin

for j:=1 to 5 do begin

if i>j then a[i,j]:=0 else

if i=j then a[i,j]:=7 else a[i,j]:=3;

write (' ',a[i,j]);end;writeln;end;

readln;readln;

end.

2.Дана матрица в(5,5). Найти количество

элементов, больших 5,

среди элементов главной диагонали.

program z2;

uses crt;

var

B:array [1..5,1..5] of integer;

i,k,j:integer;

begin clrscr;

writeln ('vvedote elementy massiva B');

for i:=1 to 5 do

for j:=1 to 5 do

read (b[i,j]);k:=0;

for i:=1 to 5 do

for j:=1 to 5 do

if (i=j) and (b[i,j]>5) then k:=k+1;

writeln ('k=',k);

readln;readln;end.

3.Матрица а(5,5) делится на две части

побочной диагональю. Найти

среднее арифметическое сумм

элементов каждой части.

program z3;

uses crt;

var

A:array [1..5,1..5] of integer;

i,n,j,k:integer;sa1,s1,sa2,s2:real;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 5 do

read (a[i,j]);s1:=0;s2:=0;k:=0;n:=5;

for i:=1 to 5 do

for j:=1 to 5 do begin

if (i+j<n+1) then

s1:=s1+a[i,j] else

if (i+j>n+1) then begin

s2:=s2+a[i,j];k:=k+1;end;

end;

sa1:=s1/k;sa2:=s2/k;

writeln ('sa1=',sa1:5:3);

writeln ('sa2=',sa2:5:3);

readln;readln;end.

4.Вычислить сумму положительных

элементов матрицы А(5,5),

расположенных выше главной диагонали.

program z4;

uses crt;

var

A:array [1..5,1..5] of integer;

i,j,s:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 5 do

read (a[i,j]);s:=0;

for i:=1 to 5 do

for j:=1 to 5 do begin

if (a[i,j]>0) and (i<j) then s:=s+a[i,j];end;

writeln ('s=',s);

readln;readln;end.

5.Вычислить сумму отрицательных элементов

матрицы А(5,5), расположенных

выше главной диагонали.

program z5;

uses crt;

var

A:array [1..5,1..5] of integer;

i,j,s:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 5 do

read (a[i,j]);s:=0;

for i:=1 to 5 do

for j:=1 to 5 do begin

if (a[i,j]<0) and (i<j) then s:=s+a[i,j];end;

writeln ('s=',s);

readln;readln;end.

6.Найти количество нулевых элементов

матрицы В(4,4), расположенных

ниже главной диагонали.

program z6;

uses crt;

var

B:array [1..4,1..4] of integer;

i,j,k:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 4 do

for j:=1 to 4 do

read (b[i,j]);k:=0;

for i:=1 to 4 do

for j:=1 to 4 do

if (b[i,j]=0) and (i>j) then k:=k+1;

writeln ('k=',k);readln;readln;end.

7.Найти сумму элементов каждого столбца

матрицы А(5,5). Результат записать в вектор S(5).

program z7;

uses crt;

var

A:array [1..5,1..5] of integer;

s:array [1..5] of integer;

i,j,p:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 5 do

read (a[i,j]);

for j:=1 to 5 do begin

p:=0;

for i:=1 to 5 do begin

p:=p+a[i,j];s[j]:=p;end;write (' ',s[j]);end;

readln;readln;end.

8.Дана матрица А(5,6). Найти сумму положительных

элементов каждого четного столбца и произведение

отрицательных элементов каждого нечетного столбца.

program z8;

uses crt;

var

A:array [1..5,1..6] of integer;

i,j,p,s:integer;

begin clrscr;

writeln ('vvedote elementy massiva A');

for i:=1 to 5 do

for j:=1 to 6 do

read (a[i,j]);

for j:=1 to 6 do begin

s:=0;p:=1;

for i:=1 to 5 do

if (a[i,j]>0) and (j mod 2=0) then s:=s+a[i,j] else

if (a[i,j]<0) and (j mod 2=1) then p:=p*a[i,j];

writeln ('s[',j:1,']=',s);

writeln ('p[',j:1,']=',p);end;

readln;readln;end.