массивы.паскаль.

[Алёнка =)]

Дан вещественный массив А(30), вычислить произведение индексов нулевых элементов и количество нулевых элементов, расположенных после первого минимального.

Помогите, пожалуста. Я в этом полный ноль, но хоть что-то попыталась сделать...


program massiv;
consnt n:=30;
var a:array[1..n] of integer;
i,n,p,min,imin,k:integer;
begin
writeln('vvedite',n,'elementov');
for i:=1 to n do
read(a[i]);
readln;
p:=1;
for i:=1 to n do
if a[i]:=0 then begin p:=p*i;
end;
for i:=1 to n do read(a[i]);
readln;
min:=a[1];imin:=1;
for i:=2 to n do
if a[i]<min then begin min:=a[i];imin:=i;
end;
k:=o;
for i:=1 to n do
if a[i]:=0 and a[i]<min then begin k:=k+1;
end;
writeln('p:=',p:0:3);
writeln('k:=',k:0:3);
end.

[k0tone]

Трымай:

program massiv;

 uses
  crt;
 const
  n=10;

 var
  a:array[1..n] of integer;
  i,p,min,imin,k:integer;

 begin
 clrscr;
 writeln('vvedite ',n,' elementov:');
 for i:=1 to n do
   begin
     write('a[',i,']=');
     readln(a[i]);
   end;

 clrscr;
 for i:=1 to n do
 write(a[i]:4);
 writeln;

 p:=1;
 for i:=1 to n do
 if a[i]=0 then p:=p*i;

 writeln('p=',p);

 min:=a[1];
 imin:=1;
 for i:=2 to n do
 if a[i]<min then
   begin
     min:=a[i];
     imin:=i;
   end;

 k:=0;
 for i:=imin to n do
 if (a[i]=0) then k:=k+1;

 writeln('k:=',k);
 readln;
end.

[unbanned]

const
  n = 30;

var
  a: array [1..n] of real;
  imin, k, i: integer;
  p, min: real;

begin
  writeln('Введите элементы массива A: ');
  for i := 1 to n do
  begin
    write('A', i, '=');
    readln(a[i]);
  end;
  imin := 1;
  min := a[1];
  for i := 1 to n do
  begin
    if a[i] < min then 
    begin
      min := a[i];
      imin := i;
    end; 
  end;
  p := 1;
  k := 0;
  for i := imin to n do 
  begin
    if a[i] = 0 then 
    begin
      p := p * i;
      k := k + 1;
    end;
  end;
  writeln('Количество нулевых элементов после минимального: ', k);
  if k <> 0 then
    writeln('Произведение их индексов: ', p:8:4)
  else writeln('Произведение их индексов: 0');
end.

[unbanned]

Сообщение от k0tone

Трымай:

program massiv;

 uses
  crt;
 const
  n=10;

 var
  a:array[1..n] of integer; // of real;
  i,p,min,imin,k:integer; // p,min:real;

 begin
 clrscr;
 writeln('vvedite ',n,' elementov:');
 for i:=1 to n do
   begin
     write('a[',i,']=');
     readln(a[i]);
   end;

 clrscr;
 for i:=1 to n do
 write(a[i]:4);//a[i]:7:3
 writeln;

 p:=1;
 for i:=1 to n do
 if a[i]=0 then p:=p*i;

 writeln('p=',p);// p:7:3

 min:=a[1];
 imin:=1;
 for i:=2 to n do
 if a[i]<min then
   begin
     min:=a[i];
     imin:=i;
   end;

 k:=0;
 for i:=imin to n do
 if (a[i]=0) then k:=k+1;

 writeln('k:=',k);
 readln;
end.

ну во-первых массив вещественный...
а во-вторых непонятно из условия... если найти произведение индексов всех нулевых элементов - то верно.
а если стоящих после минимального, то - нет

[Алёнка =)]

Спасибо вам огромное
Если не сложно можете подсказать блок-схему, пожалуйста

[unbanned]

что-то типо такого должно быть... ну у преподов требования разные, там подогнать надо будет