Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
101111(2) = 1*2^5+0*2^4+1*2^3+1*2^2+1*2^1+1*2^0=
=32+8+4+2+1=47(10)
Const n = 5;
var
a: System.Array;
begin
var b := new System.Collections.Generic.List<object>(n);
for i: integer := 1 to n do
b.Add(random(50));
a := b.ToArray();
{ Основная часть }
foreach s: integer in a do write(s:3);
writeln();
System.Array.Sort(a);
foreach s: integer in a do write(s:3);
<span>end.</span>
Const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
Randomize;
for i:= 1 to n do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
writeln;
s:=0;
i:=1;
while (i<=n)and(a[i]>0) do
begin s:=s+a[i]; i:=i+1; end;
Writeln('Сумма элементов массива до первого отрицательного числа = ',s);
end.
Пример:
7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6
Сумма элементов массива до первого отрицательного числа = 11
Ответ:
Графики в порядке от 1 до 4