лабораторная работа / Лабораторная работы7

Лабораторная работа №7.

Задание: Вычислить сумму положительных элементов четных строк массива, с использованием процедуры.

Например дан массив А(5х5).

А=

Процедура mas с аргументом b.

Program lab7;

Var A:array [1..5,1..5] of real; I,J:integer; P:real;

procedure mas (b:byte);

begin

for I:=1 to b do

for J:=1 to b do read (A[I,J]);

S:=0;

for I:=1 to b do

for J:=1 to b do begin

if (A[I,j]>0) and (I mod 2=0) then

S:=S+A[I,J] else end;

writeln('S=', S:12:6);

end;

begin

writeln('Vvedite massiv');

mas(5);

end.

Результат:

S=30.000000