ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
Объяснение:
Пошаговое объяснение:
Кажется, догадался.
1) Плывут взрослая горилла и взрослая шимпанзе. Горилла остаётся на том берегу. Шимпанзе возвращается.
2) Шимпанзе берет ребенка гориллы и перевозит. Оставляет ребенка на том берегу и возвращается.
3) Шимпанзе берет своего ребенка и перевозит. А в обратную дорогу берет ребенка гориллы и возвращает на этот берег.
В результате на 1 берегу оказывается ребенок шимпанзе, взрослая шимпанзе и два ребенка гориллы.
А на 2 берегу взрослая горилла и ребенок шимпанзе.
Всех поровну, никто никого не съел.
4) Шимпанзе забирает своего второго ребенка и перевозит на тот берег. Обратно возвращается горилла.
5 и 6) Горилла за два рейса перевозит обоих своих детей.
