Question

создать массив из 4х элементов каждому элементу присвоить по букве из своего имени вывести на экран шийровку буквы (ее номер в алфавите)Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.

Answer 1

Var
    a: array [1..4] of char;
    i: integer;

begin
    a[1] := 'S';
    a[2] := 'I';
    a[3] := 'M';
    a[4] := 'A';
    for i := 1 to 4 do
        write(ord(a[i]) - 64, ' ');
end.