Уменьшить в 2 раза все отрицательные элементы массива, состоящего из целых случайных числе из интервала (-5;5). Ученик написал программу, допустив в ней 10 ошибок. Исправьте ошибки ученика.
program Вася;
var a: array [-5..5] of integer;
i, n: integer;
begin
write (введите количество элементов массива)
read (n)
for i:=1 to n do
begin a[i] = - 5+random(5);
writeln (a[i]);
if a[i]<0 then a[i]:=a[i]/2;
end.
for i:=1 to n do write (a[i])
end.
​

var i,j,n,k,k1,k2,k3: integer; bb: boolean;

a: array of integer;

begin

write('N = ');

readln(n);

if ((n mod 3 = 0) and (n<>0)) then begin

write('K1 = ');

readln(k1);

write('K2 = ');

readln(k2);

write('K3 = ');

readln(k3);

setlength(a,n);

for i:=0 to n-1 do begin

write('Заполним номер ',i+1,' -> ');

readln(a[i]);

end;

i:=0;

while (i<n) do

begin

a[i]:=k1-a[i];

a[i+1]:=k2-a[i+1];

a[i+2]:=k3-a[i+2];

inc(i,3);

end;

write('K = ');

readln(k);

for i:=0 to n-2 do

if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;

if (bb=false) then writeln(0);

end else writeln('Введите число кратное 3 и неравное 0');

readln;

end.

1089

Объяснение:

Заменим буквы на цифры следующим образом: А — 0, Г — 1, И — 2, Л — 3, М — 4, О — 5, Р — 6, Т — 7. Получаем список:

1. 0000

2. 0001

3. 0002

4. 0003

5. 0004

6. 0005

7. 0006

8. 0007

9. 0010

...

Для нахождения первого слова, которое начинается с букв ИГ, нужно найти номер ИГАА, то есть 2100. Используется восьмибуквенный алфавит, значит, нужно найти значение числа 21008 в десятичном виде. Им является число 108810, но поскольку номер в списке на единицу больше самого числа, то остаётся добавить к получившемуся числу единицу. Получаем 1089.