Отправлено: 07.06.15 20:54. Заголовок: 27, №61

скажите пожалуйста, возможно ли такое решение №61?

var
i,a,m0,m1,m2,R,E,N:integer;
begin
readln(N);
m0:=-1;
m2:=-1;
m1:=-1;
R:=1;
readln(a);
for i:=2 to N do
begin
if a mod 3=0 then if a>m0 then m0:=a;
if a mod 3=1 then if a>m1 then m1:=a;
if a mod 3=2 then if a>m2 then m2:=a;
readln(a);
if a mod 3=0 then if a+m0>R then R:=a+m0;
if a mod 3=1 then if a+m2>R then R:=a+m2;
if a mod 3=2 then if a+m1>R then R:=a+m1;
end;
readln(E);
Writeln('Вычисленное контрольное значение: ',R);
if R=E then writeln('Контроль пройден') else
writeln('Контроль не пройден');
end.

 Отправлено: 07.06.15 21:01. Заголовок: RezuanB пишет: возмо..

RezuanB пишет:

цитата:

возможно ли такое решение №61?

Прежде, чем делать проверку if a+m0>R, хорошо бы убедиться, что m0 не равно -1.

 Отправлено: 07.06.15 21:33. Заголовок: Поляков пишет: Пр..

Поляков пишет:

цитата:

Прежде, чем делать проверку if a+m0>R, хорошо бы убедиться, что m0 не равно -1.

Точно! Я понял. Спасибо