Составьте программу замены нулевых элементов таблицы единицами Контрольный пример n=5...

Question

Составьте программу замены нулевых элементов таблицы единицами

Контрольный пример n=5

Данные :(0,5,0,60,0)

Результат :(1,5,1,60,1)


Пожалуйста

Comments

Спасибо, господа, я уже решила Var x: array[1..5] of integer;Var i,h:integer;Beginfor i:= 1 to 5 doBegin;Readln(h);if (h=0) then x[i]:=1 else x[i] = h;end;for i:=1 to 5 doBegin;Writeln('Элемент номер ',i,' массива: ',x[i]);end;readln(x);end.

---

О, нормальное решение для школьника.

---

вот

---

грязное решение, и у вас указано что вывод должен быть в строку

---

Не обязательно

---

Сейчас мы узнаем про задачу еще много нового))))

---

Не обязательно вводить с клавиатуры, не обязательно выводить в строку....

---

Именно поэтому модератор некорректное задание просто удаляет сразу: у него нет времени на переписку часами

---

подретущировала ваше решение

---

некорректных заданий тут более половины

Answer 1

//PascalABC.NET 3.1 сборка 1219
begin
    var a := ArrRandomInteger(ReadInteger('n ='), 0, 10);
    a.Println;
    a.Transform(x -> (x = 0) ? 1 : x);
    a.Println;
end.

правка вашего решения

const
    n = 5;

var
    x: array[1..n] of integer;
    i, h: integer;

begin
    for i := 1 to n do
    begin
        Readln(x[i]);
        if (x[i] = 0) then x[i] := 1;
    end;
   
    for i := 1 to n do
        Write(x[i], ' ');
    readln;
end.