С КЛАВИАТУРЫ ВВОДЯТ n чисел .Найти сколько посреди них положительных

С КЛАВИАТУРЫ ВВОДЯТ n чисел .Определить сколько посреди их положительных

Задать свой вопрос
Нетишенская Ира
Сколько чисел надобно вводить?
Гадор Арсений
там написано n чисел,то есть безызвестно сколько чисел вводить
Камилла Гресселя
Я сделал так, эталон есть, если не то , перефоратируй
1 ответ
Program zic;
var a,b,c,d,e:integer;
begin
Writeln('Введите 5 чисел');
Readln(a,b,c,d,e);
if (agt;0) and (bgt;0) and (cgt;0) and (dgt;0) and (egt;0) then Write('',Ваши числа положительные) else
if agt;0 and bgt;0 and cgt;0 and dgt;0 and elt;0 then Write('',Все ваши числа положительные не считая числа e) else
if agt;0 and bgt;0 and cgt;0 and dlt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа d) else
if agt;0 and bgt;0 and clt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа c) else
if agt;0 and blt;0 and cgt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные не считая числа b) else
if alt;0 and bgt;0 and cgt;0 and dgt;0 and egt;0 then Write('',Все ваши числа положительные кроме числа a) else
if agt;0 and bgt;0 and cgt;0 and dlt;0 and elt;0 then Write('',Все ваши числа положительные кроме числа d и e) else
if agt;0 and bgt;0 and clt;0 and dgt;0 and elt;0 then Write('',Все ваши числа положительные не считая числа c и e) else
Далее просто меняеш знаки и числа.
Концовка такая
if alt;0 and blt;0 and clt;0 and dlt;0 and elt;0 then Write('',Все ваши числа
 отрицатильные);
end.
P.s. Все эти сlt;0 и т.д. поставь в скобки
Евченкова Тамара
спасибо,большое))))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт