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

Question

Информатика

Боряха

28 января, 10:45

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

+3

Ответы (1)

Знаете ответ?

Стоян · 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
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.