Вопрос по информатике:
Задан линейный массив, состоящий из n целых чисел. Массив вводят с клавиатуры. Найти максимальный элемент массива и его индексный номер. Найдите кол-во элементов массива равных 0. Найти сумму элементов массива.
Пожаловаться
- 26.09.2017 09:10
- Информатика
- remove_red_eye 4264
- thumb_up 18
Ответы и объяснения 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
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.
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
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.
Пожаловаться
- 27.09.2017 13:51
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы