1. Постановка задачи.
Заданы массивы A(5) и B(5). Получить массив C(10), расположив в начале его элементы массиваA, а затем – элементы массива B
2. Математическая модель.
n[1..5]=a[i]=n[i]
n[6..10]=b[i]=n[i+5]
3. Блок-схема.
4. Список идентификаторов.
Имя | Смысл | Тип |
A | Массив a[i] | Integer |
B | Массив b[i] | Integer |
C | Новый массив a + b | Integer |
I | Счетчик | Integer |
5. Код программы.
program z6;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes;
var a,b:array [1..5] of integer;
c:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 5 элементов первого массива');
for i:= 1 to 5 do
begin
read (a[i]);
c[i]:=a[i];
end;
writeln ('Введите 5 элементов второго массива');
for i:= 1 to 5 do
begin
read (b[i]);
c[i+5]:=b[i];
end;
for i:= 1 to 10 do
write (c[i], ' ');
readln ();
end.
6. Результаты выполнения программы.