Заполните массив А первыми десятью крупными латинскими буквами и вывести его на экран столбик. Паскаль

Question

Информатика

Владимирушка

8 января, 08:35

Заполните массив А первыми десятью крупными латинскими буквами и вывести его на экран столбик. Паскаль

+3

Ответы (1)

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

Лаврен · Answer 1

Const

n = 10;

var

a: array[1 ... n] of string;

i: integer;

begin

for i : = 1 to n do

begin

a[i] : = chr (ord ('A') + i - 1) ;

writeln (a[i]) ;

end;

end.