Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
polinkamalinka28
31.07.2020 04:28 •
Информатика
Тема: одномерные массивы, написать программу использую rite, riteln ; все элементы кратные трем делятся на три, остальные умножаются на 3.
Показать ответ
Ответ:
PerfectM1nd
02.07.2020 19:16
Const N=...;//указываешь количество элементов массива
var a:array [1..N] of integer;
i:integer;
begin
for i:=1 to N do
readln(a[i]);
for i:=1 to N do begin
if a[i] mod 3 =0 then a[i]:=a[i] div 3 else a[i]:=a[i]*3;
writeln(a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kira25112016
29.01.2022 06:28
Составить программу, которая заполняет массив а [1..11] случайными целыми числами в диапазоне от 4 до 18,находит сумму нечётных элементов и находит произведение элементов...
ЕваЛюцифер
23.02.2020 14:53
Написать по блок-схеме программу на языке Паскаль. Ниже фото...
fffg16hgkk
29.06.2020 13:40
Используя операторы для рисования линий и прямоугольников, составьте программу для вывода на экран следующего изображения.Карточка №9...
nikzhukov989
02.08.2022 12:38
В кодировке Unicode каждый символ кодируется 2 байтами, определите, чему равен информационный объем следующей фразы в этой кодировке: Длина данного текста 32 символа....
Ксюшалебедева
27.07.2022 15:50
Имется исполнитель Стрелка.он может двигатся по цифровому циферблату,исполняя две команды:л-движение влево(по часовой стрелке)После команды указывается число,обозначающее...
jasmine9
05.10.2022 02:22
Напишите название инструментов...
joker1100
16.01.2022 09:55
Во Это графический представления алгоритма, каждое действие при этом осуществляется рисованием последовательности геометрических фигур, каждая из которых подразумевает...
lecsika
17.05.2020 22:15
Вин пойхав в кыйв в твори сироманець...
0987mnbv
17.05.2020 22:15
2. Әйгерім көкөніс салатына керекті қандай көкөністерді сатып алды?Суреттен тауып белгілеңіз.VV3. Әйгерім жеміс салатына керекті қандай жемістерді сатып алды? Суреттертауып...
Queen102938
17.05.2020 22:15
СДЕЛАТЬ ГРАММАТИЧЕСКИЕ ЗАДАНИЕ. В Ленинграде не работали ни водопровод, ни отопление. Но в городе, превращенном блокадной зимой в ледяную пустыню, несмотря на непрекращающиеся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..N] of integer;
i:integer;
begin
for i:=1 to N do
readln(a[i]);
for i:=1 to N do begin
if a[i] mod 3 =0 then a[i]:=a[i] div 3 else a[i]:=a[i]*3;
writeln(a[i]);
end;
end.