Срочно помогите!! Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и заменить все нулевые элементы на минимальный элемент массива.
Срочно помогите!!
Дан массив из 10ти целых чисел , введенных с клавиатуры. Найти и заменить все нулевые элементы на минимальный элемент массива.
Гость
Ответ(ы) на вопрос:
ГостьНа паскале не проверял, надеюсь будет работать
Гость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]
Не нашли ответ?
Похожие вопросы