1.k=20; k:=k+10;// k=30
if k+10<>30 then k:=8 // k=40 оно не равно 30 =>ответ: k=8
2. r=39
3. p=6
4.p=9
5. p=0
6. p=10
a:array[0..9] of integer;
i,y,min:integer;
begin
randomize();
for i:=0 to 9 do
begin
y:= random(10);
a[i]:= y;
end;
for i:=0 to 9 do write(a[i],' ');
writeln(' - десять випадковых чисел');
min:=a[0];
for i:=1 to 9 do
if a[i]<min then min:=a[i];
writeln(min, ' - минимальне число.');
end.
Слева - значения переменной на момент их вывода.
1. k=20
k=20+10=30
k=30=>k:=k-1=>
k=29.
2. k=20
k=30
k+10<>30=>k:=k-1=>
k=29.
3. p=1
p>0=>p:=p+5=>
p=6
p<10=>p не изменяется
p=6
4. p=5
p>0=>p=5*2=10
p>5=>p=10-1=9
p=9
5. p=0
p=1
p<>0=>p=1-1=0
p=0
6. p=5
p=5*2=10
p mod 2=0=>выводим p
p=10