Question

двухмерные масивы. в целочисленной матрице размерность 10*10 найти сумму положительных элементов четных строк

Answer 1

const n=10;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:4)

end;

writeln;

end;

for i:= 1 to n do

if i mod 2 = 0 then

for j:=1 to n do

if a[i,j]>0 then s:=s+a[i,j];

writeln ('Сумма положительных элементов чётных строк равна: ',s)

end.

Answer 2

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := MatrRandom(10, 10, -99, 99);

 a.Println(4);

 Println(4 * a.ColCount * '-');

 a.ElementsWithIndexes.Where(t -> t[1].IsOdd and t[0].IsEven)

     .Sum(t -> t[0]).Println

end.