50 баллов.Напишите программу, которая в последовательности натуральных чисел определяет

50 баллов.Напишите программу, которая в последовательности естественных чисел определяет малое число, кратное 13. Программка получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 13. Количество чисел не превосходит 1000. Введённые числа не превосходят 30 000. Программка обязана вывести одно число - малое число, кратное 13. Входные данные 3, 130, 25, 169. Выходные данные 130. (чтобы её можно было запустить в паскаль)

Задать свой вопрос
2 ответа

include lt;iostreamgt;

using namespace std;

int main()

   int b,c,d,e,f,g;

   cin gt;gt;b;

   d=30001;

   int A[b];

   for ( int i=0;bgt;i;i++ )

   

       cin gt;gt; A[i];

   

       for ( int i=0;bgt;i;i++ )

   

       if ( A[i]%13 ==0 )

       

           if ( A[i]lt; d )

           

               d=A[i];

           

       

   

   cout lt;lt; d;

Юра
для чего так усложнять? либо это троллинг? :)))

Ответ:

Var i,c,count,min:integer;

Begin

Read (count);

Min:=30000;

For i:=1 to count do

Begin

Read(c);

If c lt; min and c mod 13 = 0 then

Min:= c;

End;

Write(min);

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт