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

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

Задать свой вопрос
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.
Никита Бикунов
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.
Ybdabuf yt gjyzk z xtnj 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт