1. Информатика
  2. Составьте программу,

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

nurmakhanovna02 nurmakhanovna02    3   14.03.2019 19:50    1

Ответы
VasyaPupkin001 VasyaPupkin001  25.05.2020 09:28

var

a:array [1..20] of integer;

i:integer;

begin

randomize;

for i:=1 to 20 do begin

a[i]:=random(30)+1;

write (a[i],' ');

end;

writeln;

for i:=1 to 20 do

if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');

readln;

end. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
arshon1 arshon1  12.09.2019 19:30
Перечислите виды принтеров, назовите их основные характеристики...
RaspberryYogurt RaspberryYogurt  12.09.2019 19:40
Умоляю проверочная работа по теме «программное обеспечение компьютера» 2 вариант дайте определения следующим понятиям 1 программное обеспечение – это … 2найдите лишнее....
acrapovic acrapovic  04.05.2020 16:44
1) Какую программу мы можем использовать для того, чтобы написать инструкцию к программному обеспечению?2) Как создаётся папка на рабочем столе?3) Напишите по шагам,...
cherrpaha cherrpaha  04.05.2020 16:45
Нарисовать на координатной плоскости результат исполнения следующей программы Field 11.9, ToPoint5.1, PenDown,ToPoint 5.2, ToPoint2.2, ToPoint 4.4, ToPoint 3.4, ToPoint...
Yar4ik03 Yar4ik03  13.09.2019 04:20
Так как, арсен является тренером знаменитого футбольного клуба арсенал, он решил позабо- титься о будущем клуба и объявил набор в футбольный кружок для юношей. количество...
Topxic Topxic  13.09.2019 04:20
Жарасхан работает в крупной корпорации әсем . у жарасхана есть n документов выложенных в ряд. в каждом документе содержится секретное число ai. также у жарасхана есть...
dvydenko dvydenko  12.06.2019 05:50
Постройте блок-схему для решение : даны два числа. если их сумма больше 10, то увеличить её в два раза, в противном случае - уменьшить в три раза....
alexplotnikov201 alexplotnikov201  12.06.2019 05:50
А1142 в двоичной системе и если можно с объяснеием...
крыл8888 крыл8888  12.06.2019 05:50
Какой объем в памяти компьютера занимает предложение миру - мир!...
Kate215649 Kate215649  13.12.2021 16:54
1. Перевести из 10-й систему счисления.87, 145 , 550, 113, 99.2. Перевести из 10-й в 8-ю систему счисления.340, 685, 115, 880.3.Перевести из 16-й в 10-ю систему счисления.А33,...

Популярные вопросы