Как вместить массивы A и B в массив C - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

подскажите как вместить массивы A і B в массив C?

Решение задачи: «Как вместить массивы A и B в массив C»

textual
Листинг программы
var
a,b,c:array[1..1000] of integer;
n,m,i,k:integer;
begin
writeln('vvedite razmer massiva A');
readln(n);
randomize;
writeln('massiv A');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln('vvedite razmer massiva B');
readln(m);
randomize;
writeln('massiv B');
for i:=1 to m do
begin
b[i]:=random(100);
write(b[i],' ');
end;
writeln;
for i:=1 to n+m do
begin
inc(k);
if k<=n then c[i]:=a[i] else c[i]:=b[i-n];
end;
writeln('massiv C');
for i:=1 n+m do
write(c[i],' ');
end.

Объяснение кода листинга программы

  1. Создаются три переменные типа array[1..1000] of integer: a, b и c.
  2. Пользователю предлагается ввести размер массива A и B.
  3. Для массива A генерируются случайные числа от 0 до 99 включительно и выводятся на экран через пробел.
  4. Для массива B генерируются случайные числа от 0 до 99 включительно и выводятся на экран через пробел.
  5. Затем происходит цикл, который начинается с i=1 и продолжается до n+m.
  6. Внутри цикла увеличивается значение переменной k.
  7. Если k меньше или равно n (т.е. i меньше или равно n), то значение элемента c[i] устанавливается равным значению элемента a[i].
  8. Если k больше n, то значение элемента c[i] устанавливается равным значению элемента b[i-n].
  9. После завершения внутреннего цикла выводится на экран массив c.
  10. Код завершается без использования функции завершения программы.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы