Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
StasMe1337
20.03.2023 14:18 •
Информатика
Дан одномерный массив a1,. все элементы с нечетными номерами разделить нацело на первый элемент
Показать ответ
Ответ:
lera08862
03.10.2020 00:11
Vara:array[1..512] of integer;
i,n:integer;
begin
writeln('vvedite rezmer massiva');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
if (i<>1) and (i mod 2<>0) then a[i]:=a[i] div a[1];
end;
write('rezultat ');
for i:=1 to n do
write('a[',i,']=',a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Fokus123123
28.11.2021 08:07
Результат сложения чисел, записанных в восьмеричной системе счисления: 17+1700+170000+17000000, перевели в шестнадцатеричную систему счисления. напишите в ответе, в порядке...
Yanas7
05.03.2023 07:42
1. дано натуральное число а. если а - четное, то вывести косинус числа а и квадратный корень из числа а, иначе вывести синус числа а и квадрат числа а. 2. найти решение квадратного...
jova20011p0bpf9
13.07.2021 08:50
Почтальон принес письмо, кто почтальон источник приемник или средство? ты поздравил кого то по телефону, кто ты, источник, приемник или средство? дедушка читает газету, кто...
blagodarovamari
01.03.2022 22:52
Что вы знаете об электронной почте, сравнить возможности передачи информации с бумажных и электронных писем...
vadimrusackeviVadim
01.03.2022 22:52
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: вознёсся выше он главою непокорной александрийского...
lover7
31.07.2020 10:05
Даны 4 целых числа, записанные в двоичной системе: 100010112, 101110002, 100110112, 101101002. сколько среди них чисел, больших, чем а416 +208? , объясните подробно, как решать...
Lomberts
31.07.2020 10:05
Мать любит дочь. придумайте три подобные фразы типа подлежащее + сказуемое + дополнение...
rererer2
05.08.2021 22:14
Написать программу на c# написать программу, удаляющую из записи числа все чётные цифры....
dariamaniakova
20.02.2022 02:43
Надо написать этапы загрузки операционной системы.(если можно подробно)...
ShHanddW
18.03.2022 10:13
Примером разветвленного алгоритма является...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n:integer;
begin
writeln('vvedite rezmer massiva');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
if (i<>1) and (i mod 2<>0) then a[i]:=a[i] div a[1];
end;
write('rezultat ');
for i:=1 to n do
write('a[',i,']=',a[i],' ');
end.