Предмет: Информатика,
автор: vaniokch011
из одномерного числового массива A длинной n получить массив B , заменив все нулевые элементы - единицами. Подсчитать число замен. Вывести на экран массивы A и B и ответ на вопрос задачи
Ответы
Автор ответа:
0
Паскаль:
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.
Интересные вопросы
Предмет: Геометрия,
автор: UVasChicha
Предмет: Биология,
автор: olenka147852369
Предмет: География,
автор: nasty2438
Предмет: Литература,
автор: katyamirova77
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.