Задача по Turbo PascalЗаполнить massive A: array; [ 1..15 ] of char; Символами- буквами латинского алфавита под a до 15 латинскме буквы. Распечатать на экран данный массив в обратном порядке.
Задача по Turbo PascalЗаполнить massive A: array; [ 1..15 ] of char; Символами- буквами латинского алфавита под a до 15 латинскме буквы. Распечатать на экран данный массив в обратном порядке.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы