Вопрос по информатике:
Помогите пожалуйста,выполняется в абс паскаль прошу)))
найти количество максимальных и минимальных элементов в одномерном массиве и заменить их,их суммой.
- 27.01.2018 15:55
- Информатика
- remove_red_eye 12911
- thumb_up 14
Ответы и объяснения 1
Uses crt;const n=5;var a:array[1..n] of integer; i,max,min: integer;begin clrscr;for i := 1 to n do begina[i]:=random(20);write(a[i]:4);end;for i := 1 to n do beginmin:=maxint;if a[i]>max then max:=a[i];if a[i]
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.