Например, в R8C2 записать формулу =СУММ(R5C2:R7C2), а потом перетаскиванием за нижний правый уголок размножить её на две ячейки вправо.
А в ячейке R2C5 записать формулу =СУММ(R2C2:R2C4)
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
354
235, 15
472, 35
417, 165
317, 35