Срочно помогите!! Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и...

Question

Срочно помогите!!
Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и заменить все нулевые элементы на минимальный элемент массива.

Answer 1

Var
  i,min:integer;
  m:array[1..10] of integer;
begin
for i:=1 to 10 do
  begin
  readln(m[i]);
  if i=1 then min:=m[i];
  if m[i]  end;
for i:=1 to 10 do
  begin
  if m[i]=0 then m[i]:=min;
  write(m[i],' ');
  end;
end.

Answer 2

На паскале не проверял, надеюсь будет работать

Comments

var
i,n,v:integer;
m:array[1..10] of integer;
begin
n:=99999999;
for i:=1 to 10 do
begin
readln(v);
if vm[i]:=v;
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=n;
end;
end;