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

0 голосов
43 просмотров

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


Информатика (20 баллов) | 43 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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.

0 голосов

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

(528 баллов)
0

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;