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

Question

Информатика

Лора

4 октября, 03:41

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

+1

Ответы (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.