Ответы и объяснения

  • pslk
  • середнячок
2013-05-15T06:52:56+00:00

const n=10;

var a:array[1..n,1..n] of integer; i,j,w:integer;

begin

for i:=1 to n do

for j:=1 to n do begin 

a[i,j]:=0;

a[j,i]:=0;

end;

for i:=1 to 5 do

for j:=1 to 4 do begin

a[i,j]:=a[i,j]+5;

if(a[i,j]=10) then w:=w+1;

a[j,i]:=a[j,i]+5;

if(a[j,i]=10) then w:=w+1;

end;

writeln(w, ' элементов массива равны 10');

end.