Помогите пожалуйста. Pascal abc.net. Составить программу:

Question

Помогите пожалуйста. Pascal abc.net. Составить программу:

Ирина Омелюх Знаток (274), закрыт 7 лет назад

Даны целые a,b,c. Вывести на экран отрицательные числа в порядке возрастания,
в противном случае выдать сообщение, что отрицательных чисел среди a, b и c нет

Дополнен 7 лет назад

Разработка программ на языке ABC Pascal с использованием скалярных типов данных, операторов ветвления и варианта.

Answer 1

Var a,b,c,t:real;
f:boolean;
Begin
Readln(a,b,c);
if a>b then
begin
t:=a;
a:=b;
b:=t;
end;
if a>c then
begin
t:=a;
a:=c;
c:=t;
end;
if b>c then
begin
t:=b;
b:=c;
c:=t;
end;
f:=false;
if a<0 then begin Write(a,' ');f:=true end;
if b<0 then begin Write(b,' ');f:=true end;
if c<0 then begin Write(c,' ');f:=true end;
if not f then writeln('Net')
End.

Answer 2

Помогаю

if (a*b*c>0) and (a*b)>0 and (a>0) then writeln('отрицательных чисел среди a, b и c нет');

Answer 3

Решение на Pascal ABC (количество вводимых чисел от 2 до 100)

var i, n, j: integer;
min: real;
a: array [1..100] of real;
begin
write ('введите количество чисел n = ');
readln (n);
i:=0;
while i < n do
begin
inc(i);
Write (' Введите ',i,'-е число = ');
readln (a[i]);
if i=1 then min:=a[i];
if a[i] < min then min:=a[i];
end;
if min > 0 then writeln ('отрицательные числа отсутствуют')
else
begin
for j:=1 to n do
for i:=1 to n do
if a[i] > a[j] then
begin
min:=a[i];
a[i]:=a[j];
a[j]:=min;
end ;
for i:=1 to n do if a[i] < 0 then write (a[i]:5);
end;
end.