Задать массив генератором случайных чисел - Pascal ABC (249602)

Формулировка задачи:

Задать массив генератором случайных чисел [-10,10]. Найти минимальный элемент массива и вывести на экран все элементы массива, отличные от нуля

Решение задачи: «Задать массив генератором случайных чисел»

Листинг программы

program arr;
var A:array[1..15] of integer;
i,min:integer;
begin
for i:=1 to 15 do A[i]:=random(21)-10;
writeln('исходный массив');
for i:=1 to 15 do write(A[i],' ');
writeln;
writeln('измененный массив');
for i:=1 to 15 do
if (A[i]<>0) then write(A[i],' ');
writeln;
min:=A[1];
for i:=1 to 15 do
if (A[i]<min) then min:=A[i]; 
writeln('минимальный элемент = ',min);
end.

Объяснение кода листинга программы

Объявляется массив A размером 15 элементов для хранения целых чисел.
Инициализируются переменные i и min значением 0.
Запускается цикл, который генерирует случайное число в диапазоне от 1 до 21 и записывает его в соответствующий элемент массива A.
Выводится исходный массив на экран.
Запускается цикл, который проверяет каждый элемент массива A на ноль. Если элемент не равен нулю, то он выводится на экран.
Переменная min инициализируется значением первого элемента массива A.
Запускается цикл, который проверяет каждый элемент массива A на значение переменной min. Если элемент меньше значения переменной min, то он присваивается новое значение переменной min.
Выводится минимальный элемент массива A на экран.