Потому что это находка новой информации преобразование это навовое и новые навоки
Var i, d, n, s: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
begin
readln(d);
if (d<0) and (d<-9) and (d>-100) then s:=s+d;
end;
writeln('s = ', s);
<span>end.</span>
<h2>Цикл for</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- for i := 1 to 100 do
- Sum := Sum + Sqr(i);
- Writeln(Sum);
- end.
<h2>Цикл while (предусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- while i <= 100 do
- begin
- Sum := Sum + Sqr(i);
- i := i + 1;
- end;
- Writeln(Sum);
- end.
<h2>Цикл repeat..until (постусловие)</h2>
- uses Math;
- var
- i: integer;
- sum: real;
- begin
- repeat
- i := i + 1;
- Sum := Sum + Sqr(i);
- until i >= 100;
- Writeln(Sum);
- end.
Имя файла - Информатика.doc, но можно написать и просто Информатика, но вообще имя файла состоит из двух частей, а именно имени файла и расширения, в данном случае имя файла - Информатика, расширение - doc.
Var a:array[1..10] of integer;
x,y,i,p:integer;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(20);
x:=random(3);
if x:=2 then a[i]:=a[i]*(-1);
p:=p*a[i];
write(a[i],' ')
end;
writeln;
writeln(p);
end.