9.Найти произведение элементов каждой

строки матрицы А(5,5).

Результат записать в вектор Р(5).

program z9;

uses crt;

var

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

P:array [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]);

for i:=1 to 5 do begin

s:=1;

for j:=1 to 5 do begin

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

readln;readln;end.

10.Найти произведение положительных

элементов каждой строки матрицы А(5,6).

Результат записать в вектор Р(5).

program z10;

uses crt;

var

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

p:array [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 6 do

read (a[i,j]);

for i:=1 to 5 do begin

s:=1;

for j:=1 to 6 do begin

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

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

readln;readln;end.

11.Найти среднее арифметическое положительных

элементов каждого столбца матрицы Х(3,5).

Результат записать в вектор SA(5).

program z11;

uses crt;

var

x:array [1..3,1..5] of integer;

sa:array [1..5] of real;

i,j,s,k:integer;sred:real;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 3 do

for j:=1 to 5 do

read (x[i,j]);

for j:=1 to 5 do begin

s:=0;k:=0;

for i:=1 to 3 do

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

k:=k+1;end;sred:=s/k;sa[j]:=sred;write (' ',sa[j]:5:3);end;

readln;readln;end.

12.Найти среднее арифметическое отрицательных

элементов каждой строки матрицы Х(4,4).

Результат записать в вектор SA(4).

program z12;

uses crt;

var

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

sa:array [1..4] of real;

i,j,s,k:integer;sred:real;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 4 do

for j:=1 to 4 do

read (x[i,j]);

for i:=1 to 4 do begin

s:=0;k:=0;

for j:=1 to 4 do

if x[i,j]<0 then begin s:=s+x[i,j];

k:=k+1;end;sred:=s/k;sa[i]:=sred;

write (' ',sa[i]:5:3);end;

readln;readln;end.

13.Найти количество неотрицательных элементов

каждой строки матрицы Х(6,5).

Результат записать в вектор К(6).

program z13;

uses crt;

var

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

k:array [1..6] of integer;

i,j,p:integer;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 6 do

for j:=1 to 5 do

read (x[i,j]);

for i:=1 to 6 do begin

p:=0;

for j:=1 to 5 do begin

if x[i,j]>=0 then p:=p+1;k[i]:=p;end;

write (' ',k[i]);end;

readln;readln;end.

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

каждой строки матрицы Х(6,5).

Результат записать в вектор К(6).

program z14;

uses crt;

var

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

k:array [1..6] of integer;

i,j,p:integer;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 6 do

for j:=1 to 5 do

read (x[i,j]);

for i:=1 to 6 do begin

p:=0;

for j:=1 to 5 do begin

if x[i,j]=0 then p:=p+1;k[i]:=p;end;

write (' ',k[i]);end;

readln;readln;end.

15.Найти среднее арифметическое элементов

каждого столбца матрицы Х(3,4).

Результат записать в вектор SA(4).

program z15;

uses crt;

var

x:array [1..3,1..4] of integer;

sa:array [1..4] of real;

i,j,s,k:integer;sred:real;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 3 do

for j:=1 to 4 do

read (x[i,j]);

for j:=1 to 4 do begin

s:=0;k:=0;

for i:=1 to 3 do begin

s:=s+x[i,j];k:=k+1;end;

sred:=s/k;sa[j]:=sred;write (' ',sa[j]:5:3);end;

readln;readln;end.