Создать одномерный массив с помощью генератора случайных чисел, элементами которого являются целые числа из диапазона - 50 до + 120. Все элементы массива больше 7 заменить нулем. Распечатать измененный массив.

Program p1;

var a: array[1 ... 10] of integer; i: integer;

begin for i : = 1 to 10 do begin a[i] : = random (170) - 50; write (a[i], ' ') end; writeln; for i : = 1 to 10 do if a[i] > 7 then a[i] : = 0; for i : = 1 to 10 do write (a[i], ' ') end.