Решение:
const M = 10;
var a : array [1..M] of integer;
i,max, odd : integer;
begin
odd := 0;
{Заполнение массива}
for i := 1 to M do
begin
write('Input a[',i,']:' );
readln(a[i]);
end;
{Вывод массива на экран}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
{Поиск максимального в массиве}
max := a[1];
for i := 2 to M do
if (a[i] > max) then
max := a[i];
writeln('Максимальный элемент массива: ',max);
{Поиск всех нечетных чисел в массиве и замена их на 1}
for i := 1 to M do
if (a[i] mod 2 = 1) then
begin
a[i] := 1;
odd := 666;
end;
{Вывод сообщения об отсутствии нечетных чисел}
if (odd = 0) then
writeln('В массиве нечетных чисел нет');
{Вывод преобразованного массива}
for i := 1 to M do
write(a[i]:2,' ');
writeln;
readln;
end.
В фигурных скобках - комментарии, из программы можно удалять безболезненно. M - количество элементов в массиве.
Контрольные примеры для массива из 10 элементов:
1) Массив "1 2 3 4 5 6 7 8 9 10" будет преобразован в "1 2 1 4 1 6 1 8 1 10", максимальный элемент (до преобразования) 10
2) Массив " 2 2 2 2 2 2 2 2 2 2" будет преобразован в " 2 2 2 2 2 2 2 2 2 2", на экран будет выведено сообщение "в массиве нечетных чисел нет", максимальный элемент 2
Природные ресурсы по количеству запасов делятся на исчерпаемые и неисчерпаемые. Исчерпаемые в свою очередь делятся на возобновимые и невозобновимые. По назначению природные ресурсы делятся на многоцелевые, промышленные и сельскохозяйственные.
Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
Двигайся в эту сторону, немного подзабыл упрощения.
Максимального числа нет потому Что это числовая последовательность все числа порядковые бесконечные так и ответь