1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
Скрин с результатом работы программы прикрепил.
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.
............................................