Question

Дан элемент из 30 элементов.Заполнить случайными числами от -5 до 5. Во второй массив записать все положительные числа.

Answer 1

Const
   N = 30;
Var
   A,B:array[1..N] of integer;
   i,S,M:integer;
Begin
Randomize;
Write('A(',N,'):');
M:=0;
For i:= 1 to N do
    Begin
    A[i]:=random(11)-5;
    Write(' ',A[i]);
    if A[i] > 0 then
       Begin
       M:=M+1;
       B[M]:=A[i];
       End
    End;
WriteLn;
Write('B(',M,'):');
For i:= 1 to M do
    Write(' ',B[i]);
ReadLn;
End.