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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!