Информатика, опубликовано 2018-08-22 20:35:35 by Гость
Решите, пожалуйста, задачу на языке Паскаль Дана непустая последовательность целых чисел, за которой следует ноль (признак конца последовательности). Найти первое отрицательное число этой последовательности. Заранее благодарю за ответы
Ответ оставил Гость
Var
k,n:integer;
begin
n:=0;
Writeln(Введите последовательность целых чисел, завершающуюся нулем);
repeat
Read(k);
if (n=0) and (k until k=0;
if n else Writeln(Последовательность не содержит отрицательных чисел)
end.
Тестовое решение
Введите последовательность целых чисел, завершающуюся нулем
5 11 17 3 -8 14 -6 3 0
Первое отрицательное число равно -8
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на