Программа вычисления  произведения элементов двумерного   вещественнозначного  массива  X максимального размера 10×10 — Pascal(Паскаль)

Program pr21 (Input, Output); 
Var 
X : Array [1..20, 1..20] Of Real;
N : Integer;
P : Real;
i, j: Integer;
 
Begin
 
WriteLn ('PASCAL: Вычисление произведения элементов прямоугольной таблицы.'); 
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];
 
WriteLn ('Произведение: P = ', p: 6: 1); 
ReadLn;
End. 

Leave a Comment