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>
PascalABC.NET 3.2:
var
a, b: real;
begin
readln(a, b);
write(<u>(a + b)/2 + (a + b)</u>)
end.
<em>
Пример ввода:</em>
3 7
<em>Пример вывода:</em>
15
Правильный ответ в:
<span>C:/ day/ games/ tetris.com
диск каталог подкаталог файл</span>
Может А варианты шгар. или В. точно блмедим.