Информатика паскаль помощь нужна
Pascal
Написать программу, которая объединяет два упорядоченных по возрастанию массива в один, также упорядоченный по возрастанию массив. Рекомендуемый вид экрана во время работы программы приведен ниже (данные, введенные пользователем, выделены полужирным шрифтом).
Объединение двух упорядоченных по возрастанию массивов.
Введите в одной строке элементы первого массива,
(5 целых чисел) —> 1 3 5 7 9
Введите в одной строке элементы второго массива,
(5 целых чисел) -> 2 4 6 8 10
Массив — результат 123456789 10
Для завершения работы нажмите <enter
По дате
По рейтингу
может быть так?
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
var
arr1: array [1..5] of integer;
arr2: array [1..5] of integer;
arrAll: array [1..10] of integer;
i: integer;
s: string;
begin
// Ввод массива чисел
Writeln('Введите значения первого массива(5 чисел):');
for i := 1 to 5 do
begin
Write('Элемент ', i, ': ');
Readln(arr1[i]);
end;
Writeln('Введите значения второго массива(5 чисел):');
for i := 1 to 5 do
begin
Write('Элемент ', i, ': ');
Readln(arr2[i]);
end;
// Вывод массива чисел
Writeln('Первый массив: ');
for i := 1 to 5 do
if i = 1 then
Write(arr1[i])
else
Write(', ', arr1[i]);
Writeln('');
Writeln('Второй массив: ');
for i :=1 to 5 do
if i = 1 then
Write(arr2[i])
else
Write(', ', arr2[i]);
for i :=1 to 5 do begin
if i = 1 then
s:='Объединеннный массив: '
else
s:=s + ', ';
s := s + IntToStr(arr1[i]) + ', ' + IntToStr(arr2[i]);
end;
writeln('');
writeln(s);
writeln('Завершение работы - Enter');
readln(s);
end. Ну вот пиши
Больше по теме