Конкатенация массивов

@YayaEae · Регистрация: 29.09.2010

Author24 — интернет-сервис помощи студентам

Напишите программу, которая запрашивает и вводит с экрана два линейных массива действительных чисел не более 50 членов(возможно разное количество членов)получает из них третий, путем приписывания членов массива введенного вторым после членов
массива введенного первым
затем программа выводит полученный массив

очень буду признателен=)

Пожалуйста напишите , если можно от начала до конца )

@Puporev · 30.09.2010, 18:48

uses crt;

Pascal

const nmax=50;
var a,b,c:array[1..2*nmax] of real;
    na,nb,nc,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' na=');
readln(na);
until na in [1..nmax];
writeln('Массив A:');
for i:=1 to na do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
repeat
write('Размер массива B до ',nmax,' nb=');
readln(nb);
until nb in [1..nmax];
writeln('Массив B:');
for i:=1 to nb do
 begin
  b[i]:=10*random+10;
  write(b[i]:0:2,' ');
 end;
writeln;
writeln;
nc:=0;
for i:=1 to na do
 begin
  nc:=nc+1;
  c[nc]:=a[i];
 end;
for i:=1 to nb do
 begin
  nc:=nc+1;
  c[nc]:=b[i];
 end;
writeln('Объединенный массив C:');
for i:=1 to nc do
write(c[i]:0:2, ' ');
readln
end.

@YayaEae 0 / 0 / 0 Регистрация: 29.09.2010 Сообщений: 22
		1
	Конкатенация массивов 30.09.2010, 18:28. Показов 1450. Ответов 1 Метки нет (Все метки) Напишите программу, которая запрашивает и вводит с экрана два линейных массива действительных чисел не более 50 членов(возможно разное количество членов)получает из них третий, путем приписывания членов массива введенного вторым после членов массива введенного первым затем программа выводит полученный массив очень буду признателен=) Пожалуйста напишите , если можно от начала до конца ) 0

	30.09.2010, 18:48

Конкатенация массивов

Решение