Меню сайта

Задача №15
Даны массив —Aи —Bиз —n -элементов.Cформировать массив —C -из элементов массивов А и —B, чередуя элементы.
Program -mas_15-
uses crt-
Var a,b,c :array[1..1000] -of integer-
i,n:integer-
Begin
Writeln(‘введите размерность массивов‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(100)-
b[i]:= random(50)-100-
End-
For i:=1 to n do
Begin
-c[2*i-1]:=a[i]- write(c[2*i-1]:4)-
-c[2*i]:=b[i]- -write(c[2*i]:4)-
End-
Writeln-
Readln-
End.
Категория: Массивы | Дата: 21.12.12

Меню раздела
Блок