Помогите решить зачетную работу, 8 билетов сделал, а 9 не как

Question

Помогите решить зачетную работу, 8 билетов сделал, а 9 не как

Помогите решить зачетную работу, 8 билетов сделал, а 9 не как не могу осознать.
Билет 9
Элементы двухмерного массива "А" размером 9*9 задаются с подмогою следующего куска программки:
FOR n=1 TO 9
FOR m1 TO 9
A (n,m)=n+m+1
Сколько частей массива "A" будут принимать четыре значения:
1) 36
2) 40
3) 41
4) 45
Помогите, 12 мая зачет будет, надобно подготовится. Буду благодарен. Необходимо составить полную программку, чтоб решить задачу. А как конкретно я не настигаю.

Задать свой вопрос

Милена Пшонник 2019-08-24 23:04:17

четыре значения??? мб четные?

Эльвира Лабурцева 2019-08-24 23:02:15

точно, ошибся

Диман Агопян
Информатика
2019-08-24 23:00:10
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Если молекулы очень притягиваются друг к другу и кочуют с места

в чем сущность закона прямолинейного распространения света?

Помогите с задачей, пожалуйстаСколько граммов соли необходимо растворить в воде, чтобы

запишите величину 417 млрд штук в стандартном виде

безотлагательно решите номера 18 19 20

Даны: водные смеси перманганата калия, сульфита калия, хлорида бария, концентрированная

Помогите пожалуйста очень безотлагательно молю! Вычисли площадь ромба, если его сторона

помогите решить в столбик пример( 3328 разделить на 52) и

одну тонну картофеля рассыпали в 20 схожих мешков поровну в каждый

Обследуйте функцию и постройте график y=4/x^2-1

Shurik Gorejshin · Answer 1 · 2019-08-24 23:07:52+3:00

Var i,s,m,n:integer;
a:array [1..9,1..9] of integer;
begin
s:=0;
for n:=1 to 9 do begin
for m:=1 to 9 do begin
a[n,m]:=n+m+1;
write(a[n,m],' ');
if (a[n,m] mod 2 =0) then inc(s);
end;
writeln;
end;
write('Четных чисел: ', s);
end.

ОТВЕТ: 40

О проекте

Помогите решить зачетную работу, 8 билетов сделал, а 9 не как

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