• 1)В одноменрном массиве найит разность наибольшего и наименьшего элемента.
    2)Дан одномерный массив. Вывести на экран числа >5
    3)В одномерном массиве найти произведение нулевых элементов

Ответы 1

  • 1) Var a:array[1..10000] of longint;n,i,min,max:longint;Beginreadln(n);for i:=1 to n doread(a[i]);max:=a[1];min:=a[1];for i:=2 to n dobeginif (a[i]>max) then max:=a[i];if (a[i]<min) then min:=a[i];end;writeln(max-min);End.2)Var a:array[1..10000] of longint;Beginreadln(n);for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]>5) then write(a[i],' ');writeln;End.3)Var a:array[1..10000] of longint;i,n:longint;Beginreadln(n);for i:=1 to n doread(a[i]);writeln(0);End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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