64

Составьте программу,, которая заполняет массив а[1… 20] случайными целыми числами…

09 марта 2023

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

категория: информатика

83

Program Task; Var a: Array [1… 20] of Integer; i: Integer; BeginFor i: =1 To 20 DoBegina[i]: =Random (30)+1; If a[i] Mod 3=0 ThenWrite (a[i], '); End; ReadLn; End.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...