Одномерный массив, сделать в turbo pascal

[lubov_morkov]

writeln('введите число');
readln(l);
k:=0; writeln;
for i:=1 to n do begin
if (l>a[i]) and (l mod 5<>0) then k:=k+1; end;
writeln(k);

вот так правильно будит? на 2 задачу?

[lubov_morkov]

а то чет он на count ругается(

[Don Karleone]

Сообщение от lubov_morkov

for i:=1 to n do
begin
if (l>a[i]) and (l mod 5<>0) then k:=k+1;
end;

вот так правильно будит? на 2 задачу?

конечно нет. я же написал

for i:=1 to n do
  if (a[i] > l) and (l mod 5 = 0) then k:=k+1

[lubov_morkov]

for i:=1 to n do
f (a[i] > l) and (l mod 5 = 0) then k:=k+1

вернее наверное будит
f (a[i] > l) and (a[i]mod 5 = 0) then k:=k+1

если я не ошибаюсь

[lubov_morkov]

первые 2 готовы, осталось 3 доработать(((

[kaljan775]

Уточните условия задачи номер 3

[lubov_morkov]

Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2
вот написала, как мне помогли выше, вроде работает
p:=0;
for i:=n downto 1 do
if (a[i]<0) and (abs(a[i]) mod 5=2) then
p:=i; writeln(p);

вот только не пойму зачем туда abs нужен

[Don Karleone]

я точно не помню, но по моему если число будет отрицательное, то остаток от деления тоже будет отрицательным.

[lubov_morkov]

ааа, ясно, спасибо всем за помощь, очень благодарна

[akter]

помогите Вычислить среднее арифметическое значение положительных элементов для массивов Р(к), L(m), Q(n).