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

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

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

program lesson15_7;
var
    arr1, arr2: array[1..8] of integer;
    i, j, max, min: integer;
begin
    randomize();
    max := -5;
    min := 5;
    j := 1;
    for i := low(arr1) to high(arr1) do
    begin
        arr1[i] := min + random(max - min + 1);
        if arr1[i] >= 0 then
        begin
            arr2[j] := arr1[i];
            j := j + 1;
		end
	end;

    for i := low(arr2) to j - 1 do
        write(arr2[i], ' ');
    readln();
end.