Составьте программу которая формирует массив из 16 случайных целых чисел от -20 до 20 и находит в этом массиве индексы элементов значения которых кратны трём

Uses crt; var a: array [1..16] of integer;     i,kn,kk: integer; begin writeln('дан массив'); for i: =1 to 16 do    begin    a[i]: =random(41)-20;     write(a[i]: 4);     end; writeln; writeln('индексы кратных 3 '); for i: =1 to 16 do    if a[i] mod 3=0 then write(i: 4); end.

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов