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

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

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

Решение:

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

Консоль:

-3 -3 -1