лабораторная работа / вар6 / лаб9

Балаковский институт техники технологий и управления

Лабораторная работа №9

Вариант 6

Выполнил студент УИТ-21

Балаково 2008 год.

Задание: Вычислить суммы отрицательных элементов каждого столбца матриц А(n,n), B(m,m).

Текст программы:

program lab9;

uses crt;

var T: array [1..10,1..10] of integer;

n,m: byte;

s: integer;

procedure VV(l: byte);

var i,j: byte;

begin

writeln('Введите массив ',l,'x',l);

for i:=1 to l do

for j:=1 to l do read(T[i,j]);

end;

procedure Summa(l: byte; var s: integer);

var i,j: byte;

begin Блок-схема для процедуры VV

S:=0;

for i:=1 to l do

for j:=1 to l do

if t[i,j]<0 then S:=S+T[i,j];

writeln('S= ',S);

end;

begin

clrscr;

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

readln(n,m);

VV(n);

VV(m);

Summa(n,s);

Summa(m,s);

end.

Блок-схема для процедуры Summa

Блок-схема программы