Регистрация
DashaKhodenkova
21.07.2022 15:33
Информатика
Есть ответ 👍

Дан массив случайных чисел в диапазоне от -10 до 100 заменить чётные элементы нулем

263
480
Посмотреть ответы 2

Ответы на вопрос:

arina1234as
arina1234as
4,6(50 оценок)
Program name; const n=10; var a: array [1..10] of integer; i: integer; beginfor i: =1 to n doa[i]: =random(110)-10; for i: =1 to n doif a[i]mod 2=1 then a[i]: =0; end.
lyuda29m
lyuda29m
4,4(58 оценок)
Var n,k: integer; begin write('n = '); read(n); write('k = '); read(k); write((n> 9)and(n< 100)and(n mod k = 0)); end.

Популярно: Информатика