34

Помогите пожалуйста: Массивы: 1) Дан одномерный массив

non-stop 28 марта 2023

Помогите пожалуйста: Массивы: 1) Дан одномерный массив. Даны целые числа С1,… ,C11. Имеются ли в последовательности С1,… ,C11 два идущих подряд члена кратных 3 . 2) Дан одномерный массив. Найти номера всех элементов с минимальным значением. Программы составить нужно!

категория: информатика

84

2) program min_index; varmas: array[1… 100] of integer; n,i,min: integer; beginwrite ('Введите кол-во элементов массива: '); readln (n); writeln ('Введите элементы массива: '); for i: =1 to n doread (mas[i]); writeln ('Номера минимальных элементов массива: '); min: =mas[1]; for i: =2 to n doif mas[i]

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...