Question

Помогите решить первые две

Answer 1

Ответ:

program Ex1;

var

 A: array [1..21] of Integer;

 i, j: Integer;

begin

 j := -10;

 for i := Low (A) to High (A) do begin

   A [i] := j;

   Write (A [i], ' ');

   Inc (j);

 end;

 ReadLn;

end.

program Ex2;

var

 A: array [1..21] of Integer;

 i, j: Integer;

begin

 j := -10;

 for i := Low (A) to High (A) do begin

   A [i] := j;

   Write (A [i], ' ');

   Inc (j);

 end;

 WriteLn;

 for i := Low (A) to High (A) do begin

   A [i] := A [i] * A [i];

   Write (A [i], ' ');

 end;

 ReadLn;

end.