Элементы двухмерного массива размером 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 

Ответы:
Стас Золотовский
26-06-2016 01:50

program gt;var a:array[1..10,1..10]of integer;n,k,p:integer;beginp:=0;for n:=1 to 10 dofor k:=1 to 10 doa[n,k]:=1;for n:=1 to 4 dofor k:=1 to n+1 dobeginA[n,k]:=A[n,k]-1;A[k,n]:=A[k,n]-1;end;for n:=1 to 10 dobeginfor k:=1 to 10 dobeginwrite(a[n,k]:3,);if(a[n,k]=0)then p:=p+1;end;writeln;end;writeln(p);end.ответ:8

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Элементы двухмерного массива размером 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 » от пользователя УЛЯ ДОРОШЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!