Дан АN обнулить каждый второй элемент, вывести АN

дан А(N) обнулить каждый второй элемент, вывести А(N)

  • Program Pr1;
    uses crt;
    const n=20;
    var mas:array[1..n] of integer;
    i:integer;
    Begin
    clrscr;
    randomize;
    for i:=1 to n do mas[i]:=random(10);
    for i:=1 to n do write(mas[i]);
    writeln;
    for i:=1 to n do if i mod 2=0 then mas[i]:=0;
    for i:=1 to n do write(mas[i]);
    end.

  • Program Pr1;
    uses crt;
    const n=20;
    var mas:array[1..n] of integer;
    i:integer;
    Begin
    clrscr;
    randomize;
    for i:=1 to n do mas[i]:=random(10);
    for i:=1 to n do write(mas[i]);
    writeln;
    for i:=1 to n do if i mod 2=0 then mas[i]:=0;
    for i:=1 to n do write(mas[i]);
    end.


See also: