program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

{ОБЪЯВЛЕНИЕ ФУНКЦИИ}// для использования кириллицы
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;

const
mmax=10;
nmax=12;
var
B:array[1..mmax,1..nmax] of real;
C:array [1..mmax,1..3] of real;
i,j,m,n:integer;

begin
writeln (rus('Введите m,n')); Readln(m,n);writeln;

//Ввод элементов матрецов
writeln (rus('Введите элементы матрицы'));
For i:=1 to m do
begin
for j:=1 to n do
read (B[i,j]);
readln;
end;
writeln;

//матрица B
writeln (rus('матрица B'));
for i:=1 to m do begin
for j:=1 to n do begin
write (B[i,j]:5:2,' ':4);
end; writeln; end; writeln;

//матрица C

For i:=1 to m do
for j:=1 to n do begin
if B[i,j]<0 then C[i,1]:=C[i,1]+Abs(B[i,j]) else C[i,2]:=C[i,2]+B[i,j];
if C[i,1]>C[i,2] then C[i,3]:=-1;
if C[i,1]=C[i,2] then C[i,3]:=0;
if C[i,1]end;

//вывод матрицы С
writeln (Rus('Матрица С'));
for i:=1 to m do begin
for j:=1 to 3 do begin
write (C[i,j]:5:2,' ':4);
end; writeln; end; writeln;

//вывод
writeln(rus('Полученная матрица'));
For i:=1 to m do
begin
for j:=1 to n do
write (B[i,j]:5:2, ' ':4);
writeln;
for j:=1 to 3 do
write (C[i,j]:5:2, ' ':4);
writeln;
end;
readln;

end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.