Program fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then
ot:=ot+1;
if b<0 then
ot:=ot+1;
if c<0 then
ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
<span>end.</span>
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Хей, можешь уточнить в чём заключается задание поподробнее, а то не очень понятно.
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
Программа для создания презентаций (в основном)