Вопрос по информатике:
Ребяят, помогите с заданием по информатике. Нужно решить в паскале и желательно с блок схемой. Заранее спасибо
Дан массив из 8 чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.01.2017 21:40
- Информатика
- remove_red_eye 7979
- thumb_up 37
Ответы и объяснения 1
Var
i, count, max: integer;
a: array [1..8] of integer;
begin
for i := 1 to 8 do
read(a[i]);
max := a[1];
for i := 2 to 8 do
if a[i] > max then
max := a[i];
count := 0;
for i := 1 to 8 do
if a[i] = max then
inc(count);
if count = 1 then
writeln(max)
else
writeln(count);
end.
- 26.01.2017 02:28
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.