Размещено 4 года назад по предмету
Информатика
от riksa312
Исправьте ошибки пжжжж
Type
mas1=array[1..10] of integer;
mas2=array[1..20] of integer;
Var
a,b:mas1;
c:mas2;
i:integer;
Begin
randomize;
writeln('Массив A');
for i:=1 to 10 do
begin
a[i]:=random(51);
write(a[i]:5);
end;
writeln('Массив B');
for i:=1 to 10 do
begin
b[i]:=random(151)-70;
write(b[i]:5);
end;
for i:=1 to 20 do
if i mod 2=0 then
c[i]:=b[i div 2]
else
c[i]:=a[i div 2];
writeln('Массив C');
for i:=1 to 20 do
write(c[i]:6)
end.