Вопрос по информатике:
Заполните массив 11-ю случайными числами промежутка [-20;10]. Выведите его в строке. Все элементы с нечетными значениями уменьшите в 3 раза, а остальные - увеличьте на 5. Выведите новый массив
- 08.02.2018 14:37
- Информатика
- remove_red_eye 15671
- thumb_up 111
Ответы и объяснения 1
var a:array[1..11]of integer;
i:integer;
begin
randomize;
for i:=1 to 11 do a[i]:=random(31)-20;
for i:=1 to 11 do write(a[i],' ');
writeln;
for i:=1 to 11 do if a[i] mod 20 then a[i]:=a[i] div 3 else a[i]:=a[i]*5;
for i:=1 to 11 do write(a[i],' ');
end.
- 08.02.2018 23:55
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.