Самостоятельная работа

Вариант 1

1. Укажите, что будет напечатано в результате выполнения следующей программы:

Var a:array[1..3, 1..3] of integer;

i,j: integer;

Begin

For i:=1 to 3 do

For j:=3 downto 1 do

If i > j then

a[i,j]:=10 * i + j;

else

a[i,j]:=10 * i - j;

for i:=1 to 3 do

begin

For j:=1 to 3 do

write (a[i,j], ' ')'

writeln (' ');

End; End.

Вариант 2

1. Укажите, что будет напечатано в результате выполнения следующей программы:

Var a:array[1..3, 1..3] of integer;

i,j: integer;

Begin

i:=1;

while i<=3 do

begin

for j:=1 to 3 do

begin

a[i,j]:=10 * i - j;

write (a[i,j], ' ')'

end;

i:=i+1;

writeln (' ');

End;

End.