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

Для этого нужно ввести проверку эл массива:
program am;
uses crt;
var a,i,sum:integer;
begin
for i:1 to n do
readln(a[i]);
max:=a[1];
for i:1 to n do
if max<a[i] then
max:=a[i];
for i:1 to n do
if max=a[i] then
wrtiteln('наибольший элемент это a[',i,']=',a[i]);
for i:1 to n do
sum:=sum+a[i];
wrtiteln('сумма элементов=',sum);
end.