Question

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

Answer 1

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