• Дан целочисленный массив из 20 элементов, все элементы которого – целые числа в интервале от -1000 до 1000. Опишите на языке программирования паскаль алгоритм, который находит минимальное значение из всех нечетных элементов массива, которые делятся на 5. Если таких чисел нет,нужно вывести сообщение "таких чисел нет"

Ответы 1

  • vara:array [1..100] of integer;n,l,i,j:integer;beginfor i:=1 to 20 doread (a[i]); for j:=1 to N-1 dofor i:=1 to N-j doif a[i] > a[i+1] then begin l:=a[i];a[i]:=a[i+1];a[i+1]:=l;end; for i:=1 to 20 doif ((a[i] mod 2)=1) and ((a[i] mod 5)=0) then beginwriteln (a[i]);break;else writeln('таких чисел нет');end;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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