Задача по Turbo Pascal Заполнить massive A: array; [ 1..15 ] of char; Символами-...

Question

Задача по Turbo Pascal

Заполнить massive

A: array;

[ 1..15 ] of char;

Символами- буквами латинского алфавита под a до 15 латинскме буквы.

Распечатать на экран данный массив в обратном порядке.

Answer 1

Program pr;
uses crt;

Var i:integer;
       a:array[1..15] of char;

Begin
Writeln('Введите массив');

for i:=1 to 15 do
readln(a[i]);

for i:=15 downto 1
Writeln(a[i]);

readln;
end.