5лет

Помогите решить задание 25 ЕГЭ информатика

Дополнен

k:=10000;

for i:= 1 to N do

if a[i]<k then k:=a[i];

for i:= 1 to N do

if (k<>0) and (a[i] mod k=0) then
a[i]:=a[i]/k;

for i:= 1 to N do

writeln(a[i]);

End.
Правильное ли решение? Программа выдает почему-то ошибку в строке " if (k<>0) and (a[i] mod k=0) then
a[i]:=a[i]/k; "

По дате

По рейтингу

inga_zajonc

Искусственный Интеллект

5лет

(k<>0) and (a[i] mod k=0)
Вы делите А на ноль.
Если К не равно нулю, результатом функции К=0 будет ноль
Надо
(k<>0) and ((a[i] mod k)=0)

behuamuh_sawelev

Ученик

5лет

Программа выдает ошибку, потому что Скорее всего Вы переменную k описали как Integer, а надо как real. и в операторе if надо в скобки взять оба условия,
например if ((a>0) and b<1)) then c:=5