Вопрос, который вызвал трудности

1)составить программу, которая, если введенное число отрицательное меняет его на противоположное

2)Даны три целых числа. Найти количество положительных чисел в исходном наборе.
СРОЧНОООО РЕШИТЕ!!!

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

1)составить программу, которая, если введенное число отрицательное меняет его на противоположное

2)Даны три целых числа. Найти количество положительных чисел в исходном наборе.
СРОЧНОООО РЕШИТЕ!!!

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
a:integer;
begin
readln(a);
if a<0 then a:=abs(a);<br>writeln(a);
readln;
end.

var
 a,b,c,d:integer;
begin
c:=0;
readln(a,b,c);
if a>0 then c:=c+1;
if c>0 then c:=c+1;
if b>0 then c:=c+1;
writeln(c);
readln;
end.