Предмет: Информатика, автор: vaniokch011

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

Ответы

Автор ответа: niklasina

Паскаль:
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.

niklasina: program special;
const n=15;
var i: integer;
A: array [1..n] of integer;
B: array [1..n] of integer;
begin
randomize;
for i:=1 to n do A[i]:=random(5);
for i:=1 to n do begin
if 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.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Информатика, автор: HuggyWuggy6666

во втором, 1. программное обеспечение 2.компьютерная программа------это программа, предназначенная для решения отдельных задач или класса задач. это последовательность инструкций, которая предназначена для выполнения компьютером

6 лет назад

Предмет: Алгебра, автор: delete99

Реши систему уравнений методом подстановки:
{y=−3xx−y=28

Ответ: (
;
).

6 лет назад

Предмет: История, автор: vp651705

Які природні умови сприяли розвиткові цивілізації Китаю.

6 лет назад