Program df;
uses crt;
var a,b,c,max,sum:integer;
begin
sum:=0;
max:=0;
writeln('введите числа а,b,c');
readln(a,b,c);
if (a>0)or(b>0)or(c>0) then sum:=a+b+c else if (a>b)and(a>c) then max:=a else if (b>c) then max:=b else max:=c;
if sum=0 then wrteln('Числа отрицательные большее из них ',max) else writeln('сумма чисел ',sum); end.
НУ если совсем просто и коротко, то экономика - это комплекс общественных наук, которые изучают производство, распределение и потребление товаров и услуг.
Дивись праворуч! Неси стілець! Вмикай комп'ютер!
Var
i,n:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
readln(a[i]);
if a[i]<0 then n:=n+1
end;
writeln('Ответ: ',n)
<span>end.</span>