Дана последовательность из n произвольных целых чисел. написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 7 (использовать все три вида цикла for, while, repeat)

Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14);    i : integer;    count : integer = 0;begin
    // с возможно вам нужно с обычного for    for i in a do begin        if ((i div 7) < 0 ) then begin            count := count + 1;        end;    end;    writeln('(for) количество подходящих чисел: ', count);        // с количество подходящих чисел: ', count);        // с тут главное правльно поставить условие после until    i := 0;    count := 0;    repeat        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    until i = length(a);    writeln('(repeat until) количество подходящих чисел: ', count);    end.

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.

Это как пример, если это сложно напишите комментарий под этим ответом)

Строим прямоугольник размером 8 метров на 6 метров с вершиной в начале координат. Для обеспечения точных построений вводим с клавиатуры числа 8, 6. Можно числа перечислить через точку с запятой — 8; 6. Введенные значения автоматически считываются после нажатия клавиши Enter.

Контролировать размеры построенного объекта можно с окна Размеры, расположенного в нижней части экрана в строке состояния. Превратим плоский прямоугольник в объёмный параллелепипед с инструмента Вдавить/Вытянуть (Push/Pull).

Помещаем инструмент Вдавить/Вытянуть на поверхность прямоугольника. Прямоугольник выделится точками. Зажимаем левую клавишу мыши, и тянем вверх по направлению вертикальной синей оси. Указываем с клавиатуры размер 3 (метра). Для подтверждения действия нажимаем клавишу Enter.

Объяснение: