Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка...

Question

Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20,50] . Заменить нулем четные по значению элементы данного массива

Answer 1

Program qq;
const n=15;
var a:array[1..n] of Integer;
i:Integer;
begin
for i:=1 to n do begin
                       a[i]:=random(70-20);
                       write(a[i]:4);
                      end;
writeln;
for i:=1 to n do begin
                       if a[i] mod 2 = 0 then a[i]:=0;
                       write(a[i]:4);
                      end;
end.

Answer 2

#яп - python

import random

a = []#массив с которым работаем
for e in range(15):#заполняем массив случайнми числами из промежутка
    a += [random.randint(-20, 50)]

for e in range( len(a) ):#заменяем четные числа на нули
    if a[e] % 2 == 0: a[e] = 0

print a

Comments

а как мне это в abc pascal записать ? много непонятного