А вот скажите мне, пожалуйста, люди добрые и не очень, дабы получить в матрице А[8,4] сумму положительных элементов в четных строках, код программы на языке паскаль будет выглядеть так, или таки Меть что-то подзабыл, как ему интуиция подсказывает?
кодprogram pr4;
uses crt;
var A:array[1..8,1..4] of real; i,j,n:integer;
begin
clrscr;
n:=0;
for i:=2 to 8 do
for j:= 2 to 4 do
begin
write ('введите элемент массива');
read(A[i,j]);
if (A[i,j])>0 then n:=n+1;
end;
if n=0 then writeln ('положительных элементов нет') else writeln ('количество положительных элементов',n);
end.