Массивы,паскаль. Ошибка в задачке

[Jafrey]

Program kontr3; 
var n,i:integer; 
 s:real; 
 m:array [0..100] of real; 
begin 
s:=0; 
write('Введите кол-во вводимых чисел'); 
readln(n); 
writeln('Вводите числа'); 
for i:= 1 to n do begin 
readln(m); 
if (m<0) and (m mod 2=1) then writeln(m) end; 
writeln('Отрицательные нечетные числа:',m); 
readln; 
end.

(m mod 2=1) - ругается на эту строчку "Error: Incompatible types: got "real" expected "longInt"

[RomiKon]

Вы пытаетесь получить остаток от деления десятичного числа, по правилам Pasсal этого делать нельзя, исправьте тип данных массива на Integer

[Alex11223]

m у вас это массив т.е. название области в памяти, в которой хранятся переменные с именами m[0], m[1] и т.д. (мб не совсем технически верно, но надеюсь поняли в чем ошибка)

[Jafrey]

Блин) я в массивах ваще не секу да и в паскале в целом не особо, если пишу integer то у меня тупо выводит последнее вводимое значение суть задачи вот:
Пользователь вводит с клавиатуры N чисел. Вывести на экран все отрицательные нечетные числа
А сдать завтра надо!!! Очень выручайте кенты!

[Alex11223]

Сообщение выше прочитайте, у вас не только в типе массива ошибка. Невозможно такое сделать с массивами: вы пытаетесь что-то сделать со всем массивом сразу, но, к счастью, компилятор вас не понимает. Именно поэтому вы используете цикл for : чтобы обращаться к каждому элементу массива. Только надо записывать это не m, a m[i] ( readln( m[i] ); и т.д.)
И вывод чисел (writeln) тоже должен быть в цикле.

[Serge_Bliznykov]

1) переменную S выкинуть - она не нужна в этой задаче

2) описание массива должно быть (как уже НЕОДНОКРАТНО Вам говорили выше):

m:array [0..100] of integer;

3) ввод чисел нужно выполнять в отдельном цикле.
результаты выводить - в отдельном цикле.

4) опять же, как Вам ранее говорили, проверять надо так:

if (m[i]<0) and (m[i] mod 2=1) then writeln(m[i]) end;

[Stilet]

Пользователь вводит с клавиатуры N чисел. Вывести на экран все отрицательные нечетные числа

Безмассивный вариант:

uses crt;
var n,x,y,e:integer;
begin
Write('Input N ');readln(n);x:=1;clrscr;
while n>0 do begin Gotoxy(1,1);write(' ':20);
 GotoXY(1,1); Write('Input number ');Readln(e);
 if (e<0)and((e mod 2)=0) then begin GoToXY(x,2);write(e:5);inc(x,5);end; dec(n);
end; GotoXY(1,3);
write('...press enter to escape');readln;
end.

Мож и пригодится кому...

(m[i] mod 2=1)

Точно приоритеты соблюдены? Не заругается?

[Serge_Bliznykov]

Виталий, ваш код выдаёт чётные отрицательные, а по условию надо нечётные!

(m[i] mod 2=1)

Точно приоритеты соблюдены? Не заругается?

приоритеты соблюдены. не заругается.
Но и работать не будет

минут пять потратил, прежде чем понял, в чём фишка
надо или так:

  if (m[i]<0) and (m[i] mod 2=-1) then writeln(m[i]);

или так

  if (m[i]<0) and (abs(m[i]) mod 2=1) then writeln(m[i]);

остаток от деления на два для отрицательного числа - это отрицательное число

но лучше всего, конечно, так:

  if (m[i]<0) and odd(m[i]) then writeln(m[i]);