Вопрос по информатике:
Элементы двухмерного массива размером 10 Х 10 первоначально равны 1.Затем значения некоторых из них меняют с помощью следующего фрагмента программы: for n:=1 to 4 do for k:=1 to n+1 do begin A[n,k]:=A[n,k]-1; A[k,n]:=A[k,n]-1; end; Сколько элементов массива в результате будут равны 0? 1) 0 2) 4 3) 8 4) 16
- 05.12.2017 22:58
- Информатика
- remove_red_eye 14725
- thumb_up 35
Ответы и объяснения 1
Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
end.
ответ:8
- 06.12.2017 13:00
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.