• Задан линейный массив, состоящий из n целых чисел. Массив вводят с клавиатуры. Найти максимальный элемент массива и его индексный номер. Найдите кол-во элементов массива равных 0. Найти сумму элементов массива.

Ответы 1

  • для этого нужно ввести проверку эл массива:program am;uses crt;var a,i,sum:integer;beginfor i:1 to n doreadln(a[i]);max:=a[1];for i:1 to n doif max<a[i] thenmax:=a[i];for i:1 to n doif max=a[i] thenwrtiteln('наибольший элемент это a[',i,']=',a[i]);for i:1 to n dosum:=sum+a[i];wrtiteln('сумма элементов=',sum);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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