Вывести номера отрицательных элементов массива - PascalABC.NET

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

создать массив из 20 случайных чисел лежащих в промежутке от -10 до 10 и вывести на экран номера всех отрицательных элементов

Решение задачи: «Вывести номера отрицательных элементов массива»

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

var arr:array[1..20] of integer;
begin
  for var i:integer := 1 to 20 do
  begin
    arr[i]:=random(-10,10);
    if arr[i]<0 then write(i,' ');
  end;
end.

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

В данном коде объявлен массив arr типа array[1..20] of integer (массив целых чисел размером 20 элементов). Внутри цикла for перебираются все элементы массива от 1 до 20. Каждый элемент массива инициализируется случайным числом от -10 до 10 с помощью функции random. Затем проверяется, является ли полученное число отрицательным, и если да, то выводится на экран номер текущего элемента массива с помощью функции write(i,' '), где i — номер текущего элемента. Таким образом, код выводит на экран номера тех элементов массива, которые имеют отрицательное значение.