Составьте программу, которая заполняет массив a(1..20) случайными целыми числами в...

Question

Составьте программу, которая заполняет массив a(1..20) случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3.

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  a: РЯД 20 ИЗ ЦЕЛ;
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ()*30)) + 1
  КОН;
  ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
    ЕСЛИ ЧЕТ(a[сч]) И a[сч] ОСТАТОК 3 = 0 ТО
      Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
    КОН
  КОН

КОН Задание.

Comments

Ты ж не написал, что тебе Пасцал нужен.

---

Ну держи, на чём умные люди пишут.

---

Паскаль нужна, поможешь?)

---

Отродясь не писал на этом непотребстве, так что мало чем могу помочь тут.

---

Эх, а завтра уже сдавать надо, не знаю, что делать, сам-то в информатике не селен....

---

Селен? Это который 16-й в таблице Менделеева? Ну тогда понятно.

---

Силен...)

---

Быстро писал)

---

Подсказка: этот язык, Глагол, - диалект Паскаля. Тупо перепиши его, если знаешь, как оформляется программа на Паскале, и всё.

---

Я не знаю, как вы там код оформляете, так что сам сделать не могу.