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

[марфаз]

randomize
for i:=1 to n do 
A[i]:= random;
readln(a,b);
if(a<=b)then
begin
tmp:=a;
a:=b;
b:=tmp;
end;
n:=0;
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 writln (x) else writeln('Нет элементов в диапазоне [',a,',',b,']');
end.

ПОЛУЧИЛОСЬ ВОТ ЧТО ТАК?

[ZX Spectrum-128]

Неправильно, начиная с 1-й строки

[марфаз]

раздел описания переменных как будет выглядеть? подскажите пожалуйста если вам не трудно

почему не правильно
а как тогда будет((((((((((((((((((((((

[Vanta11a]

Никак не будет.
Незачет.

Ошибки:
* нет объявления переменных
* двойное объявление переменной "а" (т.к. А = а в Паскале)
* заполняется один массив, сравнивается другой
* ошибки в написании имен функций (т.е. синтаксические)

Аська в профиле, можете попробовать договориться за денежку.

[Mad_Cat]

writln

странно у Вас Copy-Paste работает

[марфаз]

вам трудно помочь чтоли?????????????????????((((((((( ((

[ZX Spectrum-128]

Потому что после randomizе должна стоять ;
Вы лучше скопируйте пункты 1-9 прямо из сообщений, а то вы еще там ошибок понавбивали.

Так вы склейте нормально.

[Vanta11a]

Тупо копирование не поможет, я пункт 7 привел на си-подобном языке xD
+ перекрываются переменные
+ специально часть символов замена на русские (т.е. компилятор скажет "Иди ты к черту!")

[Rififi]

марфаз

почему не правильно

например, каждый оператор завершается точкой с запятой, если после него не идёт служебный идентификатор.
это знаю даже я, ни строчки на паскале не написавший :D
а у тебя в первой строке нет точки с запятой.

[Mad_Cat]

вам трудно помочь чтоли?????????????????????((((((((( ((

А мы чего делаем то???????????????????)))))))))))))) ))))))))))