Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 138502
29.05.2008, 16:17
0.00 руб.
0 1 1
Компьютеры Программирование
Уважаемые эксперты, как это реализовать???
Составить программу, формирующую одномерный массив, состоящий из N вещественных элементов. Вычислить произведение элементов массива, расположенных между максимальным и минимальным элементами.
Заранее спасибо.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
29.05.2008, 16:47
общий
это ответ
Здравствуйте, Корчагин Петр Александрович!

Программа в приложении.
Минимальный и максимальный элементы тоже умножаются.
Удачи!

Приложение:
const n=10;var a:array[1..n]of real; b,c,d:integer; e:real;begin {создаем массив} randomize; for b:=1 to n do begin a[b]:=10*random; write(a[b]:7:3); end; writeln; {максимальный и минимальный элементы} c:=1; d:=1; for b:=2 to n do if a[c]>a[b]then c:=b else if a[d]<a[b] then d:=b; {меняем местами для цикла} if c>d then begin b:=c; c:=d; d:=b; end; {считаем произведение} e:=1; for b:=c to d do begin write(a[b]:7:3); e:=e*a[b]; end; {выводим результат} writeln(‘Result:‘,e:20:10);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа