Скрин с результатом работы программы прикрепил.
var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
write ('Введите массив 1: ');
for i:=1 to 10 do
read (a[i]);
WRITELN;
write ('Введите массив 2: ');
for i:=1 to 10 do
read (b[i]);
WRITELN;
WRITELN;
write ('Массив 3: ');
for i:=1 to 10 do
begin
if i mod 2 <> 0 then c[i]:=b[i+1];
if i mod 2 = 0 then c[i]:=a[i-1];
write (c[i],' ');
end;
end.
В биосе проставьте USB Keyboard Support и USB Mouse Support в Enabled. Это самая частая причина. Как признак — на оптической мыши после старта не горит светодиод (нет питания). После установки Windows значение этих настроек не важно, т. к. в дело вступают уже драйверы Windows
1. 2015+987=3002
2. 3002:40=75,05
А=75,5
1. Ввести число С (нынешего года)
2.В=986+1=987
3.С+В=D
4. Посчитать 5*8=E
5. A=D/E
6. Вывести А
247,128,346,427...выбирай любое.
Дверь открыть
замок замкнуть ключь и открыть или провернуть
окно открыть
стекло разбить или стукнуть
машину толкать
сиденье сидеть.