Program sum;
var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
Arr[i]:=random(100);
write(Arr[i],',');
if Arr[i] mod 5=0 then
Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5 равна ', Sum);
readln;
end.
Крутящаяся кругло овальная в середине дёргать
а:=25 b:=100
1) a:=a-b/2 = 25-100/2 = 25-50 = -25
2) a<b => c:=100+25 = 125
<em>Ответ:</em> переменная "с" примет значение 125.