Вопрос по информатике:
Помогите с информатикой !! Найти минимальный и максимальный элементы из данных массива размера N , вывести их в произведение. (Не понимаю , как делать )
- 08.09.2015 08:35
- Информатика
- remove_red_eye 6968
- thumb_up 47
Ответы и объяснения 2
Var a:array[1..100] of integer;
i,n,min,max:integer;
begin
writeln('Введите количество элементо массива');
read(n);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
end;
min:=a[1];
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]
writeln('Произведение min и max = ', min*max);
end.
- 01.01.1970 00:00
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.