Элементы массива, номера которых кратны 3 увеличить в 2 раза. паскаль abc ! !

var a: array[1..9999] of integer; i, n: integer; begin randomize; write('введите число эементов массива: '); readln(n); for i: =1 to n do begin a[i]: =-999+random(1001); write('a[', i, ']=', a[i]); if a[i] mod 2 = 0 then write(' - кратно 3') else write(' - не кратно 3'); writeln; end; writeln('увеличим номера чисел, кратных 3, в 2 раза: '); for i: =1 to n do begin if a[i] mod 2 = 0 then begin a[i]: =a[i]*2; writeln('a[', i, ']=', a[i]); end; end; end.

10 rem создание массива а для заполнения списком из 10 чисел 20 dim a (1,10): 30 rem начало цикла для заполнения массива 40 for i=1 to 10 50 rem формирование запроса на ввод i-го числа 60 print “введите”, i, “-ое число” 70 rem ввод i-го числа 80 input j 90 rem присвоение i-му элементу массива значения числа 100 a(i)=j 110 next i 120 rem цикл сортировки списка чисел по возрастанию 130 for i =1 to 9 140 for j=i+1 to 10 150 rem условие для списка 160 if a(i)> a(j) then b=a(i): a(i)=a(j): a(j)=b 170 next j, i 180 rem цикл вывода списка на экран 190 for i=1 to 10 200 print а(i) 210 next i работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. работает!

Иван: французский, китайский. антон: , японский. пётр: шведский, греческий. поясняю на сколько это возможно. 2) антон не знает шведский и французский. 3)пётр (он самый высокий - пункт 1) не знает французский. значит, французский - иван. 4) пётр не знает яп. и кит. 5) антон не знает кит. и греч. 4),5) => китайский - иван. с иваном 2),5) => антон не знает греческий и шведский (фр. и кит. уже у ивана). значит, их знает пётр. антону, в таком случае, достаются и японский. надеюсь, понятно.