Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
можно узнать какие слова нужно вставить фото же нужно
Она велит его сначала ловит рыбу (еду ) ну или принести еду! А когда старик пошел ловить рыбы из моря а случайно ловилась золотая рыбка и она попросила старика отпустить ее потом она исполнит его любое желание и старик отпустил рыбку а потом старик расказал все старухе а тогда старуха и начала командовать им
100
101
110
111
---------CУММА :
10110 <-- ответ