Сформировать массив поставить на четные числа 1 а на место нечетных 0

1
массив формировать из случайных чисел? сколько элементов в массиве?
из случайных чисел,насчет количества незнаю

Ответы и объяснения

2013-10-28T14:28:48+00:00
Uses crt;
const n=10;
var a:array [1..n] of integer;
i: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) then a[i]:=1 else a[i]:=0;
for i:=1 to n do writeln(a[i]);
end.

изменяя значение n в этой строке const n=10; можно регулировать число элементов в массиве, а в этой строке a[i]:=random(100); - диапазон значений массива