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.