Задача по Turbo Pascal

Заполнить massive

A: array;

[ 1 ... 15 ] of char;

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

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

Question

Информатика

Киприан

22 октября, 13:34

Задача по Turbo Pascal

Заполнить massive

A: array;

[ 1 ... 15 ] of char;

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ританя · 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.