первые задачи по турбо паскаль

[pavel42]

Вот только начал изучать в вузе турбо паскаль и для начала дали дакие две задачи, а я пока ничего не понимаю, помогите решить если не сложно две задачки:
1) Найти сумму нечетных элементов до первого положительного и количество отрицательных элементов после него.
2) Найти количество элементов кратных заданному числу и попавших в интревал [a,b]

[IT-man]

попытки есть?

[pavel42]

да смотрел похожие, пытался что то переделать из похожит что то не вышло. вот что то как я понял похожее на вторую задачу

Program Pascal;
Uses crt;
Var i,j:integer;
    s:longint;
begin
  clrscr;
  s:=1;
  writeln('—Ёб«* Єа*в*лҐ 11 ў Ё*вҐаў*«Ґ ®в 12 ¤® 100:');
  for i:=12 to 100 do begin
    if i mod 11=0 then begin
      writeln(i);
      s:=s*i;
    end
  end;
  writeln('Џа®Ё§ўҐ¤Ґ*ЁҐ нвЁе зЁбҐ«: ',s);
  write('Ќ*¦¬ЁвҐ Enter');
  readln;
end.

там условие было такое: Найти числа кратные 11 в интервале от 12 до 100 и их произведение.

[IT-man]

2

for i:=1 to n do
if (m[i]<=b) and (m[i]>=a) and (m[i] mod d=0) then inc(k);
writeln(k);

вот вам центральная часть. Ввод и вывод последовательности организуйте сами!и опишите переменные!

[pavel42]

спс ) сейчас попробуем

Error 121: Invalid qualifier. скажите что за ошибка

[__STDC__]

возможно пытаешься производить операции с массивом с элементом который массивом не является.. код в студию

[Stilet]

На какой строке вылезает ошибка?

[Veselyn]

Неверный квалификатор
Возможные причины:
-Вы попытались индексировать переменную, которая не является массивом;
-Вы попытались указать поля в переменнойб которая не является записью;
-Вы используете в качестве указатиля переменную, которая не является указателем.

[pavel42]

if (m[i]<=b) and (m[i]>=a) and (m[i] mod d=0) then inc(k);
^
Вот тут )

[__STDC__]

переменная m у тебя как объявлена?