Программа

[Анаранурт]

Помогите пожалуйста написать программу на Паскале.Срочно!
Для матриц А= (0.3 0.7 -2.4 0.6 I.2) (0.6 3.3 1.2)
(-I.4 0.8 2.2 -3.I 0.5) B= ( -I.7 -2.3 0.7)
(2.4 -0.3 0.2 0.7 -2.2) ( -0.4 0.2 -6.5)
(3.3 0.2 -I.5)
вычислить сумму и количество положительных элементов, используя подпрограмму.

[Stilet]

const
 a:array[1..3,1..5] of double=(
   (0.3 0.7 -2.4 0.6 I.2),(-I.4 0.8 2.2 -3.I 0.5),(2.4 -0.3 0.2 0.7 -2.2)
 );

function Sum:Double; var s:double; i,j:integer;
begin
 s:=0; for i:=1 to 3 do for j:=1 to 5 do if a[i,j]>0 then s:=s+a[i,j]; Sum:=s;
end;
function Cnt:Integer var s,i,j:integer;
begin
 s:=0; for i:=1 to 3 do for j:=1 to 5 do if a[i,j]>0 then inc(s); Sum:=s;
end;

begin
 write('Сумма А: ',Sum,' Кол-во А:',Cnt); readln;
end.

Понял как надо? Сам справишься с массивом В?

[min@y™]

только я тут вижу "I" вместо "1"?

[Utkin]

Может это комплексные

[Stilet]

я тут вижу "I" вместо "1"?

Ну дык методичка советских времен

[Анаранурт]

Спасибо большое вроде поняла)