Необходимо написать программу на Паскале.
10-11 класс
|
Условие задачи:
Составить программу формирования двумерного массива из предложенного одномерного так, чтобы первая строка нового массива содержала четные по номеру элементы исходящего массива, а вторая - нечетные. Предусмотреть случай нечетного количества элементов массива.
Например, если мы вводим такой одномерный массив 2 5 1 6 9 2, то должно вывести так:
5 6 2
2 1 9
А если количество элементов одномерного массива нечетное, например 2 5 1 6 9 2 4 то так:
5 6 2 0
2 1 9 4
Помогите пожалуйста, заранее благодарен!
var
a:array[1..50] of integer;
b:array[1..2,1..25] of integer;
i,j,n:integer;
begin
writeln('Вводите элементы массива, конец ввода по значению 7777');
n:=0;
repeat
read(i);
if i<>7777 then begin
n:=n+1;
a[n]:=i
end
until i=7777;
if n mod 2<>0 then begin
n:=n+1;
a[n]:=0
end;
for j:=1 to n div 2 do begin
b[2,j]:=a[2*j-1];
b[1,j]:=a[2*j]
end;
writeln;
for i:=1 to 2 do begin
for j:=1 to n div 2 do write(b[i,j]:5);
writeln
end
end.
Тестовый прогон:
Вводите элементы массива, конец ввода по значению 7777
2 5 1 6 9 2 7777
5 6 2
2 1 9
Вводите элементы массива, конец ввода по значению 7777
2 5 1 6 9 2 4 7777
5 6 2 0
2 1 9 4
Комментарий удален
Другие вопросы из категории
помогите составить блок схему
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.