Составить программу для заполнения массива А размером 15x15,
действительными случайными числами в интервале [-13,5; 56,3]. В
заполненном массиве найти все положительные числа и посчитать их
количество. Результат подсчета и сам массив А вывести на экран.

program rnd;

const
x=-13.5;{Служат для корректного создания дробной части, но не являются приделами для рандома}
y=56.3;
var sum,z,n,p,s: real;
i,j:integer;
a:array[1..15, 1..15] of real; {Создаем массив 15 на 15}
 
begin
randomize;
writeln('Вывод массива 15х15');
for i:=1 to 15 do
    begin
         for j:=1 to 15 do
             begin
                  z:=((random(70)-13)); {Генерирует случайную целую часть числа}
                  s:=random(10)/10; {Генерирует дробную часть }
                  if z>0 then z:=z+s else z:=z-s; {Проверяет плюсовать или минусовать дробную часть}
                  if zthen z:=x; {Обрезает согласно приделам см константы}
                  if z>y then z:=y; {Обрезает согласно приделам см константы}
                  a[i,j]:=z;
             end;
    end;
for i:=1 to 15 do
    begin
    Writeln('  ');
    Writeln('  ');
         for j:=1 to 15 do
             begin
                  Write('   ',a[i,j]); {Выводим массив}
                  if a[i,j]>0 then sum:=sum+1; {Считаем сумму элементов больших 0}
             end;
    end;
Writeln('  ');
Writeln('Сумма положительных эл',sum); {Выводим}
end.