Составьте алгоритм, который в последовательности натуральных чисел а1, а2, а3 определяет сумму чисел кратных 5. блок-схему нужно

Var a: array[1..100000] of integer; i,max,n: integer; begin readln(n); for i: = 1 to n do   read(a[i]); max: =a[1]+a[n]; for i: = 2 to n div 2 do   if max < a[i] + a[n-i] then       max: = a[i] + a[n-i]; writeln(max); end. вроде так

Давай круговую нарисуем) Типа 25+15+40+20 = 100%, круг наиболее круто подойдет))

Всего в круге 360 градусов.

На завтрак уйдет 360*0.25 = 90 градусов

На второй завтрак 360*0.15 = 54 градуса

На обед 360 * 0.4 = 144 градуса

На ужин 360 * 0.2 = 72 градуса

1) Теперь бери циркуль, нарисуй большой красивый круг.

Вертикально проведи радиус.

2) От этого радиуса отмерь 90 градусов, проведи еще 1 радиус и закрась эту область желтым цветом

... И вот так отмеряй 54, потом 144, потом 72, пока круг не кончится)

n) ну и в конце наглядно отметь это всё.

P.s. у меня на картинке в пеинте всё не супер-точно, но наглядно)

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы