Ответ Г - выполняется только тогда, когда результатом выполнения команды проверки условия является истина.
Я думаю, что будет в.
Для меня не понять 5 и 8, у них там 3 горизонтальных есть.
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------