Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Помогите, пожалуйста, составить программу на...

Помогите, пожалуйста, составить программу на... - вопрос №822974

Помогите, пожалуйста, составить программу на Паскале для решения следующей задачи: даны два одномерных массива по 50 элементов каждый, необходимо объединить эти два массива, чередуя элементы первого и второго массивов; в результате должен появится массив С, содержащий 100 элементов.

СветланаСеребряный
08.11.13
Учеба и наука / Информатика
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. 

  Буду благодарна, если отметите   
09.11.13
Лучший ответ по мнению автора

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее