Предмет: Информатика,
автор: LubaFefelova
Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20,50] . Заменить нулем четные по значению элементы данного массива
Ответы
Автор ответа:
0
#яп - 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
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
LubaFefelova:
а как мне это в abc pascal записать ? много непонятного
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Eizi
Предмет: Русский язык,
автор: imilnik2015
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Қазақ тiлi,
автор: master030107
Предмет: Українська мова,
автор: olewkaaaa