из одномерного числового массива A длинноватой n получить массив B ,

Из одномерного числового массива A длинноватой n получить массив B , заменив все нулевые элементы - единицами. Подсчитать число замен. Вывести на экран массивы A и B и ответ на вопрос задачки

Задать свой вопрос
1 ответ
Паскаль:
program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.

Игорь Либергот
program special;const n=15; var i: integer;A: array [1..n] of integer;B: array [1..n] of integer;beginrandomize;for i:=1 to n do A[i]:=random(5);for i:=1 to n do beginif A[i]=0 then b[i]:=1 else B[i]:=A[i];end;for i:=1 to n do write(A[i],' ');writeln;for i:=1 to n do write(B[i],' ');end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт