Program sum;
Uses crt;
Var A: array [1..40] of integer;
i,s: integer; {i - переменная цикла, s - сумма}
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 40 do
read(a[i]);
writeln;
s:=0;
for i:=1 to 40 do
begin
if (i mod 3=0) then
s:=s+a[i];
end;
Writeln('S = ',s);
readln;
readkey;
end.
Класс дружба подруга
друг ежик осина
лист листик лисица
клей аист дерево
лес мороз молоко
1.Доска-дерево-для нарезки продуктов-недолговечна(прогнивает).2.Ковшик-аллюминий-для отваривания небольшого количества продуктов-долговечен. 3.Кастрюля-железо-для супов и большого кол-ва продуктов-долговечна.