55:5=11
365:11≈33(34) берём "34", чтобы перехлестнуть 365.
Так как 11-ый член является замыкающим (перехлёстывающим 365), тогда смотрим по ближайшим:
34*10=340 (340+34=374) - подходит, но это не максимум!
365 mod 10= 36, а это значит, что последующий член будет больше 365, а именно 395.
В задании сказано, что d должно быть максимальным, а "34" - это допустимое, но не максимально число, удовлетворяющее условию, даже минимальное (по результату).
Проверка:
34*11=374, значит, когда на экране выведется s:=340, n:=50, то, зайдя по следующему циклу, получится, что s:= 374, n:=55. На следующий цикл программа не пойдёт.
ответ: d=34.
end;
mas[ 1 ] := minus;
writeln();
Объяснение:
Чтобы поставить полученное значение на первое место необходимо просто обратиться к первому элементу массива и присвоить ему необходимое значение. Ещё у тебя там ошибка, в условии написано, что элементов 10, а ты создаешь массив только для 5. Исправь
mas: array[1..10] of integer;
Так же исходя из этого, необходимо подправить и тело цикла, потому что остальные 5 элементов останутся не заполненными.
for i:= 1 to 10 do begin
Но в задании так же написано, что нужно посчитать количество отрицательных элементов в первой половине массива. То есть необходимо немного подкорректировать условие подсчета.
if ( mas[ i ] < 0) and ( i <=5 ) then
Вроде всё. Если что-то не понятно, оставь комментарий