Задача 11.2. Дано прямокутний масив В з 3 рядкiв i 4 стовпчикiв
дiйсних чисел.Скласти програму для обчислення: кiлькостi додатнiх елементiв масиву, суми всiх елементiв, бiльших вiд 2, але менших
вiд 12.3 та індексiв всiх вiдємних елементiв.

Program PR1;
Var
B:array[1..3,1..4] of Real;
i,j,k:Integer;
S:Real;
Begin
{Введення елементiв масиву}
For i:=1 to 3 do
 For j:=1 to 4 do
 Begin
 Write ('Введiть елемент масиву B[',i,',',j,']=');
 ReadLn (B[i,j]);
 End;
{Обчислення кiлькостi додатних елементiв масиву}
k:=0;
For i:=1 to 3 do
 For j:=1 to 4 do
 If B[i,j]> 0 Then k:=k+1;
WriteLn(' Kдод = ',k);
{Обчислення суми всiх елементiв бiльших вiд 2, але менших 
вiд 12.3}
S:=0;
For i:=1 to 3 do
 For j:=1 to 4 do
 If (B[i,j]> 2) and (B[i,j]<12.3) Then S:=S+B[i,j];
 WriteLn ('S=',S:5:2);
{Визначення кiлькостi вiд'ємних елементiв масиву В}
k:=0;
For i:=1 to 3 do
For j:=1 to 4 do
If B[i,j ] <0 Then k:=k+1;
WriteLn ('Kilk=',k);
End.
Результати роботи програми:
Введiть елемент масиву B[1,1]=1.2
Введiть елемент масиву B[1,2]=2.32
Введiть елемент масиву B[1,3]=12.3
Введiть елемент масиву B[1,4]=0.02
Введiть елемент масиву B[2,1]=0.43
Введiть елемент масиву B[2,2]=13
Введiть елемент масиву B[2,3]=234
Введiть елемент масиву B[2,4]=-4
Введiть елемент масиву B[3,1]=6
Введiть елемент масиву B[3,2]=-34
Введiть елемент масиву B[3,3]=12
Введiть елемент масиву B[3,4]=32
 Kдод = 10
 S = 20.32
 Kilk = 2