Напиши вопросы кроссворда, и получишь ответы.
Program z1;
uses crt;
var i:integer;
begin
for i:=1 to 10 do
if (i mod 2=0) then
writeln(i);
<span>end.</span>
Var
a:array[1..8] of integer;
b:array[1..8] of integer;
i:integer;
begin
write('Заполните массив - ');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8
do
begin
if a[i]<(-5) then b[i]:=a[i]*3
else
begin
if a[i]>7 then b[i]:=a[i]*5
else b[i]:=a[i];
end;
end;
for i:=1 to 8 do
write(a[i],' ');
writeln();
for i:=1 to 8 do
write(b[i],' ');
<span>end.</span>
Ответ: d)
Объяснение: Можно, поскольку в условии соблюдены минимальные требования, необходимые для общения.