Вводится два числа. определить кратна ли 5 их сумма
Вводится два числа. определить кратна ли 5 их сумма
Гость
Ответ(ы) на вопрос:
Гость Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,, c);
end.
Не нашли ответ?
Похожие вопросы