Writeln ;

Begin

End;

BEGIN

Readln(N);

Readln(M);

Begin

Var

Program MEAN_POS_MTR;

End.

End;

Writeln;

Begin

End;

BEGIN

Readln(N);

Readln(M);

Begin

Var

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

I,J: integer;

{ стандартная форма ввода матрицы }

Writeln (' ВВЕДИТЕ ЧИСЛО СТРОК МАТРИЦЫ, <= 30 ');

Writeln (' ВВЕДИТЕ ЧИСЛО СТОЛБЦОВ МАТРИЦЫ,, <= 30 ');

For I:=1 to M do

For J:=1 to N do

Writeln (' A [', i, ', ', j, ' ] = ');

Readln(A[I,J]);

{ стандартная форма вывода матрицы }

{ ПЕЧАТЬ МАТРИЦЫ В МАТРИЧНОЙ ФОРМЕ }

For I:=1 to M do

{ ПЕЧАТЬ ОЧЕРЕДНОЙ СТРОКИ }

For J:=1 to N do

Write (' A [', i, ', ', j, ' ] = ', A[ I,J ]:6);

{ ПЕРЕХОД НА НОВУЮ СТРОКУ }

Получить в матрице среднее арифметическое положительных элементов.

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

m, n, I,J, sum: integer;

sa: real;

{ стандартная форма ввода матрицы }

Writeln (' ВВЕДИТЕ ЧИСЛО СТРОК МАТРИЦЫ, <= 30 ');

Writeln (‘ВВЕДИТЕ ЧИСЛО СТОЛБЦОВ МАТРИЦЫ, <= 30 ');

For I:=1 to M do

For J:=1 to N do

Writeln (' A [', i, ', ', j, ' ] = ');

Readln(A[I,J]);

{ ПЕЧАТЬ МАТРИЦЫ В МАТРИЧНОЙ ФОРМЕ }

For I:=1 to M do

{ ПЕЧАТЬ ОЧЕРЕДНОЙ СТРОКИ }

For J:=1 to N do

Write (' A [', i, ', ', j, ' ] = ', A[ I,J ]:6);

{ ПЕРЕХОД НА НОВУЮ СТРОКУ }

Дата добавления: 2013-12-13