I. "программирование"- язык паскаль (авс) написать программы, решающие следующие : 1) дан одномерный массив из 10 целых чисел. необходимо вывести на экран порядковый номер наибольшего числа. 2) дан одномерный массив из 6 рациональных чисел. написать алгоритм подсчета элементов массива, значения которых кратны числу k (число k вводится пользователем)

104

161

Посмотреть ответы 2

Ответы на вопрос:

friskdrimur

Информатика

4,8(84 оценок)

1) begin var a: =readarrinteger('введите 10 чисел: ',10); var i: =a.indexmax; writeln('максимум a[',i+1,']=',a[i]); end. 2) const n=6; type q=record ch: integer; zn: integer; end; var a: array[1..n] of q; j,k,max: integer; f: boolean; mx: q; begin write('k: '); readln(k); for var i: =1 to n do begin writeln('дробь ',i); write('введите числитель= '); readln(a[i].ch); repeat write('введите знаменатель= '); readln(a[i].zn); until a[i].zn> 0; end; writeln('введенные дроби: '); for var i: =1 to n do write(a[i].ch,'/',a[i].zn,' '); writeln; j: =0; for var i: =1 to n do if (a[i].ch div a[i].zn mod k = 0) then j: =j+1; writeln('кол-во ',j); end. пример k: 8 дробь 1 введите числитель= 16 введите знаменатель= 2 дробь 2 введите числитель= 64 введите знаменатель= 8 дробь 3 введите числитель= 120 введите знаменатель= 15 дробь 4 введите числитель= -15 введите знаменатель= 5 дробь 5 введите числитель= -16 введите знаменатель= 2 дробь 6 введите числитель= -8 введите знаменатель= 1 введенные дроби: 16/2 64/8 120/15 -15/5 -16/2 -8/1 кол-во 5

svetlanko2000

Информатика

4,7(81 оценок)

Ответ под буквой б), так как остальное не связано с копьютером

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.