tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Тема: одномерные массивы, написать
Тема: одномерные массивы, написать программу использую rite, riteln ; все элементы кратные трем делятся на три, остальные умножаются на 3.
аленка1опр
3 01.06.2019 17:10
1
Ответы
Почтиматематик2894
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
cat12213113
03.12.2020 11:27
Тест по теме «Файловая система»1. Файловая система:1. система архивации и разархивации больших порций информации хранения информации на бумаге организации хранения информации на...
НяшаНика
03.12.2020 11:27
решить 5 задание, там надо схемой (кто хорошо знает информатику поймет посогите ...
Женька2597
19.05.2021 09:10
Укажите программу, которая в результате выводит четные числа в обратном порядке * for i in range(1,10, 2): print(i,end= )for i in range(0,10,-2): print(i,end= )for i in range(10,0,-2):...
nnejman
19.05.2021 09:09
3. Определите порядок действия для создания объекта на рисунке1. На одном конце дуги с кнопки окружность рисуем круг Полученную арку заливаем с Заливки Выбрав инструмент Дуга, нарисуем...
простоНастя2228
19.05.2021 09:09
Сопоставьте инструменты с его назначением: инструмент, используемый для рисования первичной схемы объектов. A) создает объёмные фигуры, путем вдавливания или вытягивания B) удаляет...
petroura2
13.09.2020 18:16
Які основні інформаційні процеси здійснюються під час таких операцій: а) знімання відеофільму;б) розв язування задачі;в) розмова з використанням смартфона і програми Skype;г) ведення...
kotelnikovaLA
13.09.2020 18:15
Г.ИнструментовЗапиши в Тетрадь названия и назначения известных проге...
wami56
14.09.2020 00:21
Заполните таблицу: Методы идентификации Преимущества Недостатки идентификация с пароля идентификация с использованием специальных предметов Биометрическая проверка...
данчик321
13.09.2020 18:01
Сколько книг Владимира Короткевича хранится в национальной библиотеке Беларуси?...
vlad200883
14.09.2020 19:15
Для чего нужна таблица ascll...
Популярные вопросы
Ивот такая по мкт: при построении температурной шкалы торрентино принимается,...
2
Исследуйте функцию и постройте ее график. y=(1-x)*e^x план исследования функции:...
2
Cao+h2o= so3+h2o= bao+h2o= so2+h2o= na2o+h2o= p2o5+h2o=...
2
По каким координатным осям нужно переместить родительскую функцию...
2
Напишите сочинение-рассуждение уроки природы в произведениях писателей мира (...
1
На брусок массой m=1кг,который неподвижно лежал на горизонтальном столе,в течение...
2
белок имеет последовательность аминокислот: фенилаланин-алалин-изолейцин-глутаминовая...
1
Слова гез,утрехт,сжигает,1660 составить сочинение...
2
От данного луча отложить угол, равный данному. решите...
3
1. найдите импульс легкового автомобиля массой 2,5 т,движущегося со скоростью...
3
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.