задача : найти последний положительный элемент массива R[K] ,величина которого находится в заданном диапазоне [ a, b].

[марфаз]

readln(a,b); в этой строке ошибка

[Vanta11a]

Прочитайте мое сообщение с разбором ошибок.

Выделю еще раз.
В паскале "А" и "а" - ОДНА И ТА ЖЕ ПЕРЕМЕННАЯ. Соответственно границы участка нужно читать не в переменную "а".
Следующая ошибка будет в этой же строке, т.к. "b" не объявлена.

[ZX Spectrum-128]

Массив а поменяйте на mas

[Mad_Cat]

Удачи!!!!!!!!!!!

program V23;
var mAs : array [1..25] of real;
i,x,n:integer ;
a,b,tmp:real;
begin
Randomize;
readln(n);
For i:=1 to n do
mas[i]:=random(20)-10+random(100)/100;
readln(a,b);
if(a>=b)then
begin tmp:=a;
a:=b;
b:=tmp;
end;
x:=0;
for i:=1 to n do
if ((mas[i] > 0) AND (mas[i] >= a) AND (mas[i] <=b)) then
x:= i;
if x<>0 then writeln(mas[x]) else writeln('HETy');
end.

4 страницы флуда xD ох и надают нам РО модераторы

[Vanta11a]

Ты бы хоть пару символов заменил на русские для интересу...

[марфаз]

Mad_Cat огромное тебе спасибо )!!!!!!!! добрый ты человек

[Mad_Cat]

Mad_Cat огромное тебе спасибо )!!!!!!!! добрый ты человек

с Вас 1$ - кошельки(webmoney) в подписи!(да я алчен!!!!!!)

[марфаз]

а почему всегда пишет что нет элементов в массиве положительных???? когда например ввожу 3 и 8

[Vanta11a]

Значит не попали сгенеренные рандомом числа в диапазон.

[Mad_Cat]

а почему всегда пишет что нет элементов в массиве положительных???? когда например ввожу 3 и 8

а вы б массивчек на экранчик то вывели да посмотрели чего там да как заполняется и есть там 1 небольшой "косячок" (должно быть(a>b))