Question

Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицате

льный элемент. Выведите на экран исходный и полученный массив. На Паскале

Answer 1

uses crt;
var min,i:integer;
a:array[1..10] of integer;