Потому что операнды подобных функций всегда должны быть вещественными, то есть числа с плавающей точкой. Это связано с тем, что существует несколько экземпляров перегруженных функций, соответствующих списку аргументов.
var pos,neg: integer; i,k,x: integer; ev,un: integer; a,b: array [1..n] of integer;
begin for i := 1 to n do read(a[i]); k := 0; pos := 0; neg := 0; for i := 1 to n do begin ev := 0; un := 0; x := a[i]; if x <> 0 then if x > 0 then if (x < pos) or (pos = 0) then pos := x else else if (x > neg) or (neg = 0) then neg := x; x := abs(x); while x <> 0 do begin if odd(x) then un := un + 1 else ev := ev + 1; x := x div 10 end; if un = ev then begin k := k + 1; b[k] := a[i] end end;
writeln(pos,' ',neg); for i := 1 to k do write(b[i],' ') end.
Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.
Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.
Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов
Год первого полета человека в космос- 1961 год, Ю. Гагарин
Год принятия христианства на Руси- 988 год.
Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"
Год начала великой отечественной войны- 1941 год,
Год запуска первого искусственного спутника земли- 1957 год, «Спутник-1», СССР
Потому что операнды подобных функций всегда должны быть вещественными, то есть числа с плавающей точкой. Это связано с тем, что существует несколько экземпляров перегруженных функций, соответствующих списку аргументов.