Вопрос по информатике:
Задан массив из N действительных чисел. Определить количество максимальных элементов. Определить максимальный элемент среди положительных чисел и максимальный среди отрицательных чисел и их номера.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.01.2018 00:14
- Информатика
- remove_red_eye 10916
- thumb_up 38
Ответы и объяснения 1
Const
n = 100;
var
i, k_max, max, neg_max: integer;
a: array[1..n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
max := a[1];
k_max := 1;
neg_max := 0;
for i := 1 to n do
begin
if a[i] > max then begin
max := a[i];
k_max := 1;
end;
if a[i] = max then k_max := k_max + 1;
if (a[i] abs(neg_max)) then
neg_max := a[i];
end;
writeln('Max: ', max, ' k=', k_max);
writeln('Positive: ', max);
writeln('Negative: ', neg_max);
end.
- 22.01.2018 18:31
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.