Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Найти первый отрицательный элемент

Автор: Demon562647 15.1.2007, 08:36

Составить программу для нахождения первого отрицательного элемента в заданной с клавиатуры числовой последовательности N чисел (без использования массивов).
Вывести на печать номер и значения первого отрицательного элемента или сообщение о том, что в заданной числовой последовательности отрицательных чисел нет :rtfm

Автор: Rodman 15.1.2007, 09:42

Код


uses Crt;
var n,num,c,count,j, j:integer;
       chek:boolean;
BEGIN
    count:=0;
    writeln('Enter count of numbers');
        readln(n);
    chek:=false;
    for i:=1 to n do
    begin
        writeln('Enter number');
        readln(j);
        if(j<0)and(chek=false)then
        begin
            num:=j;
            c:=i;
            chek:=true;
        end;
    end;
    if(chek)then
        writeln('First number lower then zero is',num,'on place',c)
   else
        writeln('No one lement lower then zero');
END.

вродь так

Автор: Demon562647 15.1.2007, 11:31

Спасбо огроменное, задача почти заработала, ну я ёё немного подправил,спаибо за сайт и за умных людей которые его посещают! smile