Заполните массив А первыми десятью крупными латинскими буквами и вывести его на экран столбик . Паскаль
Заполните массив А первыми десятью крупными латинскими буквами и вывести его на экран столбик . Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы