• вывести номер 1 и последнего кратного 5
    pascal ABC

Ответы 3

  • Поправил,
    • Автор:

      rhett14
    • 6 лет назад
    • 0
  • спасибо
    • Автор:

      jasoncook
    • 6 лет назад
    • 0
  • var  a:array[1..10000] of integer;  i, n, first, last:integer;  fl: boolean;begin  Read(n);  For i:= 1  to n do    Read(a[i]);fl:=false;  For i:= 1 to n do    if (a[i] mod 5 = 0) then       if (fl = false) then begin                               fl:= true;                               first := i;                               last:= i;                           end                           else                                last := i;   Writeln('Первый -> ', first);   Writeln('Последный -> ', last);       end.
    • Автор:

      braylen
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years