uses crt;
var
a,b:array [1..100] of integer;
i,k:integer;
Sa,Sb:real;
begin
write('Введите количество элементов массивов: '); read(k);
clrscr;
randomize;
writeln('Массив А:');
for i:=1 to k do
begin
a[i]:=random(50)-25;
b[i]:=random(100)-50;
Sa:=Sa+b[i];
Sb:=Sb+a[i];
write (a[i]:4);
end;
writeln; writeln('Массив В:');
for i:=1 to k do
write (b[i]:4);
writeln;
Sa:=Sa/k; Sb:=Sb/k;
writeln ('Сумма элементов массива А: ',Sa);
writeln ('Сумма элементов массива В: ',Sb);
if Sa>Sb then writeln ('Ср.(А)>Ср.(В)')
else
if Sa<Sb then writeln ('Ср.(А)<Ср.(В)')
else writeln ('Ср.(А)=Ср.(В)');
end.
Количество элементов в массивах одинаковое и равно n.
a - первый массив
b - второй массив
c - третий массив
i - цикловая переменная, индекс элемента массива
var
a, b, c : array [1..100] of integer;
n, i : integer;
begin
readln (n);
for i := 1 to n do
readln (a [ i ]);
[ввели первый массив]
for i := 1 to n do
readln (b [ i ]);
[ввели второй массив]
for i := 1 to n do
begin
if i mod 2 = 0 then [проверка индекса элемента на чётность]
c [ i ] = b [ i ];
else
c [ i ] = a [ i ];
end;
[создали третий]
for i := 1 to n do
writeln (c [ i ] : 4);
[вывод третьего массива]
end.
Можно всё это сделать одним циклом.
var
a, b, c : array [1..100] of integer;
n, i : integer;
begin
readln (n);
for i := 1 to n do
begin
readln (a [ i ]);
readln (b [ i ]);
if i mod 2 = 0 then
c [ i ] = b [ i ];
else
c [ i ] = a [ i ];
writeln (c [ i ] : 4);
end;
end.
