Описать множества alf( a .. я ) и поместите в - вопрос №1896623 от stas289 19.01.2022 04:34

Question

Информатика: Описать множества alf( a .. я ) и поместите в него гласные буквы

stas289 · Answer

Var i: byte;
Alf: array [1..10] of char;
begin
Alf[1] := 'А';
Alf[2] := 'Е';
Alf[3] := 'Ё';
Alf[4] := 'И';
Alf[5] := 'О';
Alf[6] := 'У';
Alf[7] := 'Ы';
Alf[8] := 'Э';
Alf[9] := 'Ю';
Alf[10] := 'Я';
for i := 1 to 10 do
writeln('[', i, '] => ', Alf[i]);
end.

:)

Описать множества alf('a'..'я') и поместите в него гласные буквы