Проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює a=100, а кожне наступне менше від попереднього на 7

в лодку помещается 2 человека? если так, то решение будет:

1. сперва перевправляются 2 , один возвращается назад на лодке.

2. переправляются 2 миссионера, а назад возвращается оставшийся на берегу .

3. переправляются 2 , один остается, второй плывет за оставшимся на другом берегу .

4. переплывают 2 оставшихся .

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

byck is my dog.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.