Question

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

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.

Answer 2

Вот пример кода на языке Паскаль, который заполняет массив А первыми десятью крупными латинскими буквами и выводит его на экран столбик:

pascalCopy code
program FillArray;
var
  A: array[1..10] of Char;
  i: Integer;
begin
  // Заполняем массив A крупными латинскими буквами
  for i := 1 to 10 do
    A[i] := Chr(Ord('A') + i - 1);

  // Выводим массив A на экран столбик
  for i := 1 to 10 do
    writeln(A[i]);
end.

После выполнения этого кода на экране будет выведен следующий результат:

mathematicaCopy code
A
B
C
D
E
F
G
H
I
J

Каждая буква будет выводиться на отдельной строке.