лабораторная работа / Лабораторная работа6

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

Задание: Вычислить сумму положительных элементов четных строк массива. (Массив 5х5)

БЛОК СХЕМА. ПРОГРАММА.

Program lab6;

Var A: array[1..5,1..5] of real; i,j: integer; S: real;

Begin

For i:=1 to 5 do

For j:=1 to 5 read(A[i,j]);

S:=0;

For i:=1 to 5 do

For j:=1 to 5 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.

РЕЗУЛЬТАТЫ: