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

0 голосов
71 просмотров

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


Информатика (98 баллов) | 71 просмотров
Дано ответов: 2
0 голосов

Ybdabuf yt gjyzk z xtnj 


image
(52 баллов)
0 голосов

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.

(3.4k баллов)
0

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.