одномерные массивы.

[lilia2121]

даны массивы вещественных чисел А(10), В(11), С(12) Обнулить и распечатать тот массив чьё произведение положительных элементов минимально. распечатать произведение для каждого массива

[[CODER]]

Как я понимаю проблема в создании массива.

на С++

int A[10], B[11], C[12];

на паскале

Var
A:array[1..10] of integer;
B:array[1..11] of integer
C:array[1..12] of integer

[Grag]

Coder, ну ты и выдал!!!

Var
A:array[1..10] of integer;
B:array[1..11] of integer
C:array[1..12] of integer

Читай внимательно, что пишет в задании ТС:

даны массивы вещественных чисел А(10), В(11), С(12)

[lilia2121]

большое спасибо)
ну там вроде различие только в том что real писать нужно

[Филантроп]

Var
A:array[1..10] of real;
B:array[1..11] of real;
C:array[1..12] of real;
k:char;
p1,p2,p3:real;
i,r:integer;
begin
randomize;
p1:=1;p2:=1;p3:=1;
 Writeln('Array A');
 for i:=1 to 10 do begin
 a[i]:=random(20)-10+random(100)/100;
 if a[i]>0 then p1:=p1*a[i];
 write(a[i]:6:2);
 end;
Writeln;
Writeln('Array B'); 
 for i:=1 to 11 do begin
 b[i]:=random(20)-10+random(100)/100;
  if b[i]>0 then p2:=p2*b[i];
 write(b[i]:6:2);
 end;
Writeln;
Writeln('Array c'); 
for i:=1 to 12 do begin
  c[i]:=random(20)-10+random(100)/100;
 if c[i]>0 then p3:=p3*c[i];
  write(c[i]:6:2);
end;
Writeln;
Writeln('==============================');
Writeln('npou3BegeHue MaccuBa A=',p1:8:2);
Writeln('npou3BegeHue MaccuBa B=',p2:8:2);
Writeln('npou3BegeHue MaccuBa C=',p3:8:2);
Writeln('==============================');
if (p1<=P2) and (p1<=p3) then 
begin
k:='a';
r:=10;
end;
if (p2<=P1) and (p2<=p3) then
begin
k:='b';
r:=11;
end;
if (p3<=P1) and (p3<=p2) then
begin
k:='c';
r:=12;
end;
writeln('HoBbIu MaccuB ',k);
for i:=1 to r do
case r of
10: begin a[i]:=0; write(a[i]:6:2);end;
11: begin b[i]:=0; write(b[i]:6:2);end;
12: begin c[i]:=0; write(c[i]:6:2);end;
end;
readln;
end.

[lilia2121]

Очень, очень благодарна!!!!

[[CODER]]

Поправляюсь
на Си

float A[10], B[11], C[12];

на паскале

Var
A:array[1..10] of real;
B:array[1..11] of real;
C:array[1..12] of real;