Учеба и наука
Решено
Помогите, пожалуйста, составить программу на... - вопрос №822974
Помогите, пожалуйста, составить программу на Паскале для решения следующей задачи: даны два одномерных массива по 50 элементов каждый, необходимо объединить эти два массива, чередуя элементы первого и второго массивов; в результате должен появится массив С, содержащий 100 элементов.
ноябрь 8, 2013 г.
-
Всего ответов: 1
-
program primer;
uses crt;
var a:array[1..50] of integer;
b:array[1..50] of integer;
c:array[1..100] of integer;
i,k:integer;
begin
randomize;
{заполнение случайными числами}
k:=1;
for i:=1 to 50 do
begin
a[i]:=random(100);
b[i]:=random(100);
c[k]:=a[i]; c[k+1]:=b[i];
k:=k+2;
end;
writeln('Исходные массивы');
for i:=1 to 50 do write(a[i]:6); writeln;
for i:=1 to 50 do write(b[i]:6);
writeln('Результат');
for i:=1 to 100 do write(с[i]:6);
readln
end.
Буду благодарна, если отметите
Лучший ответ по мнению автора
Похожие вопросы