Помогите Форумчани)

[Rigard]

Ну вообшем кто шарить в паскале помогите плз написать прогу) я в паскале дуб по алгоритму)

Построение задачи:
Вводится последовательность из N чисел. Определить, является ли последовательность знакопеременной

Через цикл While

[Marlboro]

 ****
var
m: array [0..N - 1] of integer;
i: integer;
Is: boolean;
begin
i := 0;
Is := true;
while (i <= N - 2) do
begin
if (m[i] * m[i + 1] >= 0) then
begin
Is := false;
break;
end;
end;
if Is then
writeln('Является')
else
writeln('Не является');
end.

Вроде так)

[MUTABOR]

Ну вообшем кто шарить в паскале помогите плз написать прогу) я в паскале дуб по алгоритму) Построение задачи: Вводится последовательность из N чисел. Определить, является ли последовательность знакопеременной Через цикл While [/b]

Ох уж это программирование

Я давал $ чтобы мне все решали

[Rigard]

надо через while зделать ( без использывания массивов) вот я понять немогу как делать)) через массив уже пытался здать)) но всеравно спс за помощь!

[Virgil]

только если натурой отдашь - напишу

[-=GrandSoulMasteR=-]

Вот непойму только одного. Он мне пишет N Неизвестный индификатор (в АБС паскале)