Question

сформировать и вывести на экран последовательность из n элементов заданным датчиков случайных чисел на интервале[-20;20]. Заменить знак элементов на противоположный. В новом массиве найти максимальный элемент.

Answer 1

uses crt;

type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран

randomize; // включаем генератор случайных чисел.

write('Введите кол-во элементов массива : '); readln(n);

for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' | ');
end;
readln;
end.