program e1;
uses crt; {Без этого не работает функция ClrScr - функция для очистки экрана. Не нужно}
const n=10; {Количество элементов}
var a: array [1..n] of integer; {A1, A2 и т.д. задаю как массив}
var i: integer; {Счетчик}
var b: integer;
begin
b:=0; {Указываем, что b=0}
ClrScr; {Очищаем экран}
randomize; {Я используют random для генерации чисел}
for i:=1 to n do
begin
a[i]:=random(100); {Задаем число}
if random(3)=0 then a[i]:=a[i]*(-1); {Задаем знак числа}
end;
i:=0; {Обнуляем счетчик}
while (b=0) and (i<=10) do {Пока b=0 и i<=10, то ...}
begin
i:=i+1; {Увеличиваем счетчик. Можно писать: inc(i)}
if a[i]>0 then b:=1; {Если число положительное, то b=1}
if a[i]<0 then b:=2; {Если число отрицательное, то b=2}
end;
if b=1 then writeln('Встретилось раньше положительное число, число - ', a[i]);
if b=2 then writeln('Встретилось раньше отрицательное число, число - ', a[i]);
readln; {Ожидаем нажатия кнопки Enter}
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.