Program Project1;
var m:array of integer; res, n, i:integer;
begin
repeat
write('n: '); readln(n);
SetLength(m, Length(m)+1);
m[Length(m)-1]:=n;
until n=0;
res:=0;
for i:=1 to Length(m)-1 do
if m[i]<0 then res:=res+m[i];
writeln('Result:=', res);
readln;
end.
<span><span> if</span><span> <условие> </span>then<span> <оператор1> </span>else<span> <</span>оператор2>;</span><span><span> </span>(если) (то) (иначе)</span>
<span><span><span>2) </span>if</span><span> </span><условие><span> </span>then <оператор>;</span>
<span><span>(если) (то) </span>
</span>и не Paskal a pascal
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
sad = 0
minlol = 190
maxlol = 150
name = input()
while name != '!':
name = int(name)
if name >= 150 and name <= 190:
sad += 1
if name < minlol:
minlol = name
if name > maxlol:
maxlol = name
name = input()
print(sad)
print(minlol, maxlol)