составьте программу, которая заполняет массив a(1..20) случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3.
Ответы на вопрос
Ответил Аноним
0
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Матем ИЗ "...ОтделыЧисла";
ПЕР
a: РЯД 20 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()*30)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ ЧЕТ(a[сч]) И a[сч] ОСТАТОК 3 = 0 ТО
Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
КОН
КОН
КОН Задание.
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Матем ИЗ "...ОтделыЧисла";
ПЕР
a: РЯД 20 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()*30)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ ЧЕТ(a[сч]) И a[сч] ОСТАТОК 3 = 0 ТО
Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
КОН
КОН
КОН Задание.
Ответил danchik5102
0
Силен...)
Ответил danchik5102
0
Быстро писал)
Новые вопросы