Задание:
Помогите пожалуйста: Массивы: 1) Дан одномерный массив. Даны целые числа С1,… ,C11. Имеются ли в последовательности С1,… ,C11 два идущих подряд члена кратных 3 . 2) Дан одномерный массив. Найти номера всех элементов с минимальным значением. Программы составить нужно!
Решение:
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] Знаете другой ответ?