Var a: array[1..N] of integer;

I, X, y: integer;

s: real;

begin

for i:=1 to N do readln(a[i]);

x:= 0; y:= 0;

for i:=1 to N do begin

if (a[i] > 0) and (a[i] mod a[1] = 0) then begin

y:= y + 1;

x:= x + a[i];

end;

end;

s:= x / y;

writeln(s);

end.

28. Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Гарантируется, что хотя бы один такой элемент существует. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них

Паскаль	Естественный язык
const N=20; var a: array [l..N] of integer; i,j,min: integer; begin for i:=l to N do readln(a[i]); ... end.	Объявляем массив A из 20 элементов. Объявляем целочисленные переменные i, j, min. В цикле от 1 до 20 вводим элементы массива A с 1-го по 20-й. ...

В качестве ответа вам необходимо привести фрагмент программы (или описание алгоритма на естественном языке), который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Borland Pascal 7.0) или в виде блок-схемы. В этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии (например, в образце, записанном на естественном языке).

В этой задаче есть хитрость, связанная с особенностями вычисления остатка от деления отрицательных чисел в языках программирования. Чтобы понять суть проблемы, нужно вернуться к основам математики (теории чисел). Дело в том, что в теории чисел остаток от деления – положительное число. Например, при делении числа «–31» на 5 получается «–7» и остаток 4, потому что

– 31 = 5·(– 7) + 4

Однако в большинстве современных языков программирования (в том числе в Паскале и в Си) частное и остаток вычисляются иначе, не в соответствии с теорией чисел. Например, при делении числа «–31» на 5 получается «–6» и остаток «–1». Эта особенность может сыграть свою роль. Например, при проверке нечетности числа следующий оператор для отрицательных чисел сработает неверно :

if A[i] mod 2 = 1 then

writeln('Число ', A[i], ' нечетное');

Дело в том, что для нечетных отрицательных чисел этот остаток будет равен -1 и условный оператор не сработает. Правильно писать так:

if A[i] mod 2 <> 0 then

writeln('Число ', A[i], ' нечетное');

Заметим, что в алгоритмическом языке (в системе КуМир) такой проблемы нет, КуМир считает остаток правильно с точки зрения математики – для всех нечетных чисел остаток будет равен 1.

Вторая проблема – какое число записать в переменную min в качестве начального значения? Поскольку диапазон чисел по условию ограничен (от -1000 до 1000), для этого можно использовать любое число вне этого диапазона, например, 9999.

Решение на естественном языке. Записываем в переменную min начальное значение 9999, которого по условию не может быть в исходном массиве. В цикле перебираем значения переменной i от 1 до N. Если очередной элемент массива a[i] нечетный (остаток от его деления на 2 не равен нулю) и при делении на 5 дает в остатке 0, то сравниваем его со значением переменной min. Если этот элемент меньше, чем min, записываем в переменную min значение a[i]. После окончания цикла выводим значение min.

Решение на Паскале.

const N=20;