Question

Написать программу, в которой в массиве из 15 случайных целых чисел , на отрезке от -5 до 5 , числа равные 0 заменяются на 1

Answer 1

Если это на Паскаль, то:
program special_for_raushan;const n=15; var i: integer;a: array [1..n] of integer;beginrandomize;for i:=1 to n do begin                 a[i]:=random(11)-5;                 write(a[i],' ');                 end;writeln;for i:=1 to n do beginif a[i]=0 then a[i]:=1;write(a[i],' ');end;end.

Answer 2

program special_for_raushan;
const n=15;
var i: integer;
a: array [1..n] of integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(11)-5;
write(a[i],' ');
end;
writeln;
for i:=1 to n do begin
if a[i]=0 then a[i]:=1;
write(a[i],' ');
end;
end.