В массиве из 10 случайных чисел поменять местами все четные ** 0 и вывести получившийся...

Question

В массиве из 10 случайных чисел поменять местами все четные на 0 и вывести получившийся массив на экран

Answer 1

Program p1;
const  n=10;
var  a:array[1..n] of integer;
     i:integer;begin  
randomize;  
for i:=1 to n do
begin
              a[i]:=random(10);
              if (a[i] mod 2)=0 then a[i]:=0;
end;
for i:=1 to n do
begin
              writeln(a[i]);
end;        

end.

Comments

а почему n а не 10?? вроде как из10 случ чисел или то-то не так?

---

program p1;
var a:array[1..10] of integer;
i:integer;begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(10);
if (a[i] mod 2)=0 then a[i]:=0;
end;
for i:=1 to 10 do
begin
writeln(a[i]);
end;

end.

---

gj;fkeqcnf =)

---

=)

---

спасибо, спас меня от 3 за четверть_)))

---

))) ну тогда я в двойне рад =)