3 задания необходимо реализовать на Паскале

[Gigatrest]

№1. Записать в Паскале выражение: точка с координатами (х; y) лежит внутри квадрата с центром в начале координат и стороной равной а.

№2. Описать алгоритм следущей задачи: Вычислить количество положительных чисел в последовательности из N чисел.

№3. Написать программу на Паскале: Дана последовательность символов, последний из которых "точка". Найти порядковый номер первого символа отличного от буквы А. Если отличных от символа А символов нет напечатать 0 /ноль/.

[diliana]

Если вам эти 3 задания необходимо реализовать, то почему же вы их не реализовываете?

[kcю]

(abs(x)<=a) and (abs(y)<a) вроде так

[kcю]

program massiv;
const n=10;
var a,b:array[1..n] of integer;
k,i:integer;
BEGIN
for i:=1 to n do begin
writeln('Введите элементы массива');
readln(a[i]);
end;
k:=1;
for i:=1 to n do
if a[i]>0 then begin b[k]:=a[i];
k:=k+1;
end;
for i:=1 to n do
writeln('b[',i,']=',b);
readln;
END.

[LeBron]

Сообщение от kcю

(abs(x)<=a) or (abs(y)<a) вроде так

Не так. Для "внутри" должны выполняться оба условия.
З.Ы. И сравнивать надо даже не с а.