Вопрос по информатике:
В массиве состоящем из 10 случайных элементов в интервале [-15;15],определить:
-последний максимум
-минимум среди положительных элементов
-количество max элементов.Pascal abc,9 класс
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.06.2018 04:51
- Информатика
- remove_red_eye 6107
- thumb_up 19
Ответы и объяснения 1
a: array [1..10] of integer;
max, min, k, i: integer;
begin
max := -15;
k := 0;
min := 0;
for i := 1 to 10 do begin
a[i] := random(30) - 15;
write(a[i], ' ');
if (a[i] >= max) then begin
max := a[i];
inc(k);
end else
k := 0;
if (a[i] = 0) then
min := a[i];
end;
writeln;
writeln(max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.');
end.
- 03.06.2018 22:35
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.