Сформировать и вывести новый массив из всех отрицательных элементов исходного - Pascal ABC

Формулировка задачи:

Всем привет, нужна помощь в программе, задание:Сформировать и вывести произвольный массив из 50 вещественных чисел в пределах от -10 до 10. Сформировать и вывести новый массив из всех негативных элементов выходного, сведенных в квадрат. Сделать нужно через процедуры.Очень буду признательна тем кто сделает.Заранее спасибо.

Код к задаче: «Сформировать и вывести новый массив из всех отрицательных элементов исходного - Pascal ABC»

textual
const
  n = 50; {количество элементов}
 
type
  TVector = array[1..n] of Real; {вещественный массив}
 
procedure VectorRandom(var V: TVector);
var
  i: integer;
begin
  Randomize;
  for i := 1 to n do begin
    V[i] := Random(2000) / 100 - 10;
  end;
end;
 
procedure VectorPrint(const V: TVector; Count: Integer);
var
  i: integer;
begin
  for i := 1 to Count do begin
    Write(V[i]:0:2, ' ');
  end;
  WriteLn;
end;
 
procedure Task(const V1: TVector; var V2: TVector; var Count: Integer);
var
  i: Integer;
begin
  Count := 0;
  for i := 1 to n do begin
    if V1[i] < 0 then begin
      Inc(Count);
      V2[Count] := Sqr(V1[i]);
    end;
  end;
end;
 
var
  A, B: TVector;
  cnt: Integer;
 
begin
  VectorRandom(A);
  Write('A: ');
  VectorPrint(A, n);
  Task(A, B, cnt);
  Write('B: ');
  VectorPrint(B, cnt);
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ