Question

Объявить символьный массив из 10 элементов. Заполнить массив с клавиатуры. Вывести исходный массив на экран и массив в обратном порядке. Вывод организовать с выводом порядкового номера элемента в строку

Answer 1

Объяснение:

Program zero;

Var i:Integer;

a: array [1..10] of Real;

Begin

For i:=1 to 10 do

Begin

Whiteln('Введите число №', i);

Readln(a[i])

End;

For i:=1 to 10 do

White('№ ', i, ' ', a[i], ' ' );

Whiteln;

For i=10 downto 1 do

White('№ ', i, ' ', a[i], ' ' ) ;

Readln

End.