Написать программу, которая формирует случайным образом массив из 15 целых чисел, лежащих в диапазоне от 0 до 5, после чего на экран выводятся элементы массива с номерами их индексов.
1. Текстовый процессор входит в состав прикладного программного обеспечения. 2. Клавиатор является разновидностью клавиатурного тренажёра. 3. Редактирование предшествует форматированию. 4. Растровой графический редактор является элементом множества графический редактор. 5. Paint является разновидностью растрового графического редактора 6. Windows XP является разновидностью операционной системы 7. Материнская плата входит в состав системного блока 8. Струйный принтер является элементом множества принтер
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.
Объяснение:
2. Клавиатор является разновидностью клавиатурного тренажёра.
3. Редактирование предшествует форматированию.
4. Растровой графический редактор является элементом множества графический редактор.
5. Paint является разновидностью растрового графического редактора
6. Windows XP является разновидностью операционной системы
7. Материнская плата входит в состав системного блока
8. Струйный принтер является элементом множества принтер