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

для этого нужно ввести проверку эл массива: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.