Const N = 10; //твое число N var i,c,nc,X: integer; begin for i:=1 to N do begin READLN(X); if(X >= 0) then inc(c) else inc(nc); end;
if (c > nc) then Writeln('четных больше') else begin if(c < nc) then Writeln('нечетных больше') else if(c = nc) then writeln('кол-во четных и нечетных чисел равно'); end; end.
В операторе y:=x*x+4/x+3 используется операция деления, которая всегда возвращает вещественный тип. Следовательно, и всё выражение в правой части всегда будет иметь вещественный тип. А в левой части стоит переменная целого типа. Присваивание вещественного значения целочисленной переменной запрещено правилами языка Паскаль. Чтобы избавиться от ошибки, нужно знать алгоритм, который реализует программа. В зависимости от алгоритма может быть использована операция целочисленного деления, может быть использована функция Trunc(), возвращающая целочисленное значение аргумента, либо переменная y должна объявляться вещественной.
В операторе y:=x*x+4/x+3 используется операция деления, которая всегда возвращает вещественный тип. Следовательно, и всё выражение в правой части всегда будет иметь вещественный тип. А в левой части стоит переменная целого типа. Присваивание вещественного значения целочисленной переменной запрещено правилами языка Паскаль. Чтобы избавиться от ошибки, нужно знать алгоритм, который реализует программа. В зависимости от алгоритма может быть использована операция целочисленного деления, может быть использована функция Trunc(), возвращающая целочисленное значение аргумента, либо переменная y должна объявляться вещественной.
N = 10; //твое число N
var
i,c,nc,X: integer;
begin
for i:=1 to N do
begin
READLN(X);
if(X >= 0) then inc(c)
else inc(nc);
end;
if (c > nc) then Writeln('четных больше')
else
begin
if(c < nc) then Writeln('нечетных больше')
else if(c = nc) then writeln('кол-во четных и нечетных чисел равно');
end;
end.