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>
Дорожные знаки называют - международным языком улицы! гос.стандартом определены 4 группы дорожных знаков - предупреждающие, запрещающие, предписывающие и указательные!)
Ответ: число 2.
Объяснение: (4 - 2) * 4 * 4 - 2 - 2 = 28
Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.