Выяснить,сколько положительных элементов содержит матрица - Pascal - Ответ 87917

uses crt;
var a:array[1..24] of real;//данный массив
    b:array[1..10] of real;//искомый массив
    i,j,l:integer;
    p:real;//коэффициент для умножения
begin
clrscr;
randomize;
writeln('Massiv A:');
for i:=1 to 24 do
  begin
    a[i]:=2*random;//берем маленькие числа, а то в массиве В будут очень большие
    write(a[i]:4:1);
  end;
writeln;
for i:=1 to 24 do //все числа массива А
for j:=1 to 10 do
   begin
    p:=1;
    for l:=1 to j do//возводим по порядку в степень 1,2,3,...10
    p:=p*a[i];
    b[j]:=b[j]+p;//складываем по степеням и заносим в массив
   end;
writeln('Massiv B:');
for i:=1 to 10 do
write(b[i]:7:1);
readln
end.

uses crt;
const n=6;
var a:array[1..n,1..n] of real;
    i,j,k:integer;
begin
clrscr;
writeln('Matrica A:');
k:=0;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=sin(i+j/2);
       if a[i,j]>0 then k:=k+1;
       write(a[i,j]:6:2);
      end;
    writeln;
  end;
write('Polozitelnyh elementov=',k);
readln
end.