Регистрация
123451175
02.12.2020 03:53
Информатика
Есть ответ 👍

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

233
366
Посмотреть ответы 2

Ответы на вопрос:

murkacomkate
murkacomkate
4,7(40 оценок)

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.

Вано137
Вано137
4,8(42 оценок)
121212212 или 111212212 

Популярно: Информатика