Массивы

[Kitozoy]

Помогите пожалуйста выполнить задание.

Дан массив определённой длины. Проинициализировать массив, а затем заменить нулями все четные элементы.

Срочно нужно...

[Serge_Bliznykov]

Сообщение от Kitozoy

Помогите пожалуйста выполнить задание.

чем помочь?

Сообщение от Kitozoy

Проинициализировать массив

а чем иницилизировать?

[newerow1989]

var p:array[1..10] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 10 do
      If i mod 2=0 then
         p[i]:=0;
   For i:=1 to 10 do
      Write(p[i]:2,'  ');
   Writeln;
   Readln;
end.