Массивы
Дана матрица действительных чисел {Bij} где i = 1,2,3 j = 1,2,3,4,5. Составить Паскаль- программу для вычисления произведения всех элементов матрицы.
Program Primer78;
Const N=3;
M=5;
TYPE MAS = ARRAY[1..N, 1..M] OF REAL;
VAR
B:MAS;
i:1..N;
j:1..M;
P:REAL;
BEGIN
Writeln ('Vvedite znachenij matricu');
FOR i:=1 TO N DO
FOR j:=1 TO M DO
READLN (B[i,j]);
P:=1;
FOR i:=1 TO N DO
FOR j:=1 TO M DO
P:=P*B[i,j];
Writeln ('proizvedenie =',P);
END.
==================================================================================
Составить Паскаль-программу для вычисления суммы 15 чисел
Program Hr777;
Var X:Array [1..15] of Integer;
I,S:Integer;
Begin
Writeln ('Vvedite 15 chisel');
S:=0;
For I:=1 To 15 DO
Begin
Readln (X[i]);
S:=S+X[i];
End;
Writeln ('S[15]=',S);
End. | 
