Можно 25.239.2.183.27
вроде так,но я не уверена
Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Вот так?)).................
5 Мбайт,600 Кбайт,15 байт,100 бит
Program n1;
var a: real;
begin
readln(a);
writeln(a+10);
end.