Написать программу, которая формирует случайным образом
массив из 15 целых чисел, лежащих в диапазоне от 0 до 5,
после чего на экран выводятся элементы массива с номерами
их индексов.

Program abra;

Var

X : Array [1..20, 1..20] Of

real;

N : Integer;

P : Real;

i, j: Integer;

begin

WriteLn ('Вычисление произведения ');

Write ('Введите размерность:  N = ');

ReadLn (N);

WriteLn ('Введите элементы массива:');

For i := 1 To N Do

For j := 1 To N Do

Begin

Write ('X[', i, ',', j, '] = ');

ReadLn (X [i, j] );

End;

P := 1;

For i := 1 To N Do

For j := 1 To N Do

P := P * X [i, j];

if (X [i,j])=0 then writeln('присутствуют нулевые элементы')  else

WriteLn ('Произведение: P = ',p: 6: 1);

readln;

 end.

Объяснение:

1. Текстовый процессор входит в состав прикладного программного обеспечения.
2. Клавиатор является разновидностью клавиатурного тренажёра.
3. Редактирование предшествует форматированию.
4.  Растровой графический редактор является элементом множества графический редактор.
5. Paint является разновидностью растрового графического редактора
6. Windows XP является разновидностью операционной системы
7.  Материнская плата входит в состав системного блока
8. Струйный принтер является элементом множества принтер