Дан двумерный массив целых чисел N*M (задается рандомно). Вычислить сумму всех элементов...

Question

Дан двумерный массив целых чисел N*M (задается рандомно). Вычислить сумму всех элементов массива, стоящих в ячейках с четными координатами. Pascal

Answer 1

Ybdabuf yt gjyzk z xtnj 

---

Answer 2

Const N=10;const M=15;var A: array [1..N] of integer;var B: array [1..M] of integer;i,j: integer;beginj:=0;for i:=1 to N doA[i]:=random(100);for i:=1 to M doB[i]:=random(100);for i:=1 to N doif i mod 2=0 then j:=j+A[i];for i:=1 to M do if i mod 2=0 then j:=j+B[i];writeln('Сумма всех элементов массива, стоящих в ячейках с чётными координатами равна: ', j);end.

Comments

const N=10;
const M=15;
var A: array [1..N] of integer;
var B: array [1..M] of integer;
i,j: integer;
begin
j:=0;
for i:=1 to N do
A[i]:=random(100);
for i:=1 to M do
B[i]:=random(100);
for i:=1 to N do
if i mod 2=0 then j:=j+A[i];
for i:=1 to M do
if i mod 2=0 then j:=j+B[i];
writeln('Сумма всех элементов массива, стоящих в ячейках с чётными координатами равна: ', j);
end.