Задача по Turbo Pascal

Заполнить massive

A: array;

[ 1 ... 15 ] of char;

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

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

Question

Информатика

Доса

30 июня, 13:28

Задача по 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.