Задача 7 Урок 15

Задача 7 урок 15

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

program U15Z6;
var a: array [1..8] of integer;
    b: array [1..8] of integer;
    i: integer;
begin
  randomize;
  for i:=1 to 8 do
    begin
    a[i]:=random(11)-5;
    writeln(a[i], ' a[',i,']');
    end ;
  writeln();
  for i:=1 to 8 do
    begin
      if (a[i]<0) then
        b[i]:=a[i];
      writeln(b[i], ' b[',i,']');
    end;
  readln();
end.