Question

создать массив из 4х элементов
каждому элементу присвоить по букве из своего имени
вывести на экран шийровку буквы (ее номер в алфавите)

Я писала программу, но мне выдало ошибку "Нельзя преобразовать тип char к integerа программу" Напишите что исправить.

f672140ff1f3f39fb665b370b6f8536c.pas

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.