Составить алгоритм и программу нахождения суммы следующих чисел: 1,1,2,1,2,3,1,2,3,4,...,1,2,3,4,5,6 ,7,8,9,10. Turbo Pascal

[EllePanda]

1) Составить алгоритм и программу нахождения суммы следующих чисел: 1,1,2,1,2,3,1,2,3,4,...,1,2,3,4,5,6 ,7,8,9,10.

2)Составить алгоритм и программу соединения двух массивов.

[Аватар]

1.

  s:=0; for i:=1 to 10 do s:=s+(i+1)*i; writeln(s div 2);

или так

  s:=0; for i:=1 to 10 do s:=s+i*(11-i); writeln(s);

2. Что такое соединение двух массивов?

[min@y™]

типа так штоли?

49.png

[newerow1989]

1 задача

var i,j,s:integer;
begin
   s:=0;
   For i:=1 to 10 do
      For j:=1 to i do
      begin
         Write(j,', ');
         s:=s+j;
      end;
   Writeln;
   Writeln(s);
   Readln;
end.

2 задача

type tArr=array of integer;

function Slit(a,b:tArr):tArr;
var i,k:integer;
begin
   SetLength(Result,High(a)+High(b)+2);
   k:=0;
   For i:=Low(a) to High(a) do
   begin
      Result[k]:=a[i];
      k:=k+1;
   end;
   For i:=Low(b) to High(b) do
   begin
      Result[k]:=b[i];
      k:=k+1;
   end;
end;

var i:integer;
    a,b,c:tArr;
begin
   Randomize;
   SetLength(a,5);
   For i:=Low(a) to High(a) do
   begin
      a[i]:=Random(21);
      Write(a[i]:3,'  ');
   end;
   Writeln;
   SetLength(b,8);
   For i:=Low(b) to High(b) do
   begin
      b[i]:=Random(21);
      Write(b[i]:3,'  ');
   end;
   Writeln;
   c:=Slit(a,b);
   For i:=Low(c) to High(c) do
      Write(c[i]:3,'  ');
   Writeln;
   Readln;
end.