Необходимо написать программу на паскале. условие : составить программу формирования двумерного массива из предложенного одномерного так, чтобы первая строка нового массива содержала четные по номеру элементы исходящего массива, а вторая - нечетные. предусмотреть случай нечетного количества элементов массива. например, если мы вводим такой одномерный массив 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 , заранее !

266

427

Посмотреть ответы 2

Ответы на вопрос:

мадя21

Информатика

4,6(95 оценок)

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