Const n=10; {Можно подставить любое число}
var a:array[1..n] of integer; i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}
write(a[i],' ');
end;
writeln;
s:=0;
for i:=1 to n do
if (i mod 2)=0 then s:=s+a[i];
writeln(s);
end.
Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------
Если A, B имеют общий делитель d, то и A + B делится на d. Отсюда идея: найдем наибольший делитель N, меньший N, и представим всё в виде d + (N - d). d будем искать так: найдём наименьший делитель q, не равный 1 (если число составное, он не больше корня из N), тогда d = N/q.
var
q, d, n: longint;
isfound: boolean;
begin
readln(n);
isfound := false;
for q := 2 to trunc(sqrt(n)) + 1 do
if n mod q = 0 then
begin
d := n div q;
write(d, ' ', n - d);
isfound := true;
break;
end;
if not isfound then
write(1, ' ', n - 1);
end.
1.Предмет: газета, стадион
Процесс: прогулка, чтение
Явление: радуга, мираж
2. а) Пенал, учебник, тетрадь
б) Мышь, монитор, клавиатура
в) Бумага, магнитный диск, магнитная лента
г) Растение, животное, человек
4. а) Страны
б) Страны Америки
в) Страны Северной Америки
г) Величайшие реки
д) Реки России
е) Реки Европы
ж) Периферийные устройства ПК
з) Устройства ввода
и) Растения
к) Плодоносные деревья
5.а) Эрмитаж, Дворцовый мост, Музей Тульский пряник
б) Третьяковская галерея, Красная площадь, Большой Театр
в) тут напиши любые достопримечательности твоего города.
на выходе из цикла х = 20