Дана матрица размера 6 на 4. Найти сумму отрицательных элементов всей матрицы. Через процедуры и функции!!

1

Ответы и объяснения

2012-12-13T15:31:18+04:00

Program Pr1;
uses crt;
type mas=array[1..6,1..4] of integer;
var mass:mas;
procedure inputmas(var mass:mas);
var i,j:integer;
begin
randomize;
for i:=1 to 6 do
for j:=1 to 4 do begin
write('Vvedite v ',i,'-oi stroke ',j,' simvol ');
read(mass[i,j]);
end;
clrscr;
end;
procedure outputmas(mass:mas);
var i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 4 do begin
gotoxy(j,i);
write(mass[i,j]);
end;
end;
function uslovie(mass:mas):integer;
var i,j,a:integer;
Begin
a:=0;
for i:=1 to 6 do
for j:=1 to 4 do if mass[i,j]<0 then a:=a+mass[i,j];
writeln();
writeln(a);
end;
Begin
clrscr;
inputmas(mass);
outputmas(mass);
uslovie(mass);
end.