Вариант 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.