Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2011, 17:14   #1
Avvakymova
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 49
Восклицание пв одномерном массиве...

в одномерном массиве,состоящем из n вещественных элементов,вычислить произведение всех элементов,расположенных между максимальным и минимальным элементами.вывести на экран исходный и преобразованный массив,а так же результаты расчета
Avvakymova вне форума Ответить с цитированием
Старый 13.05.2011, 08:40   #2
Мирзали
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 28
По умолчанию

Код:
program m1;
uses crt;
var x:array [1..1000] of integer;
i,n,max,min,p:integer;
begin
clrscr;
writeln('vvedite razmer massiva');
readln(n);
writeln('vvedite massiv');
for i:=1 to n do read(x[i]);
max:=x[1];
min:=x[1];
for i:=1 to n do begin
if x[i]>max then max:=x[i] else min:=x[i];
end;
for i:=min to max do begin
p:=i*i;
end;
for i:=1 to n do write('ishodniy massiv',x[i], ' ');
writeln;
write('proizvedenie elementov massiva:',p:2);
readln;
end.
Мирзали вне форума Ответить с цитированием
Старый 13.05.2011, 16:43   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
max:=x[1];
min:=x[1];
for i:=1 to n do begin
if x[i]>max then max:=x[i] else min:=x[i];
прикольно) только минимум и максимум так не ищут)
Код:
max:=1;
min:=1;
for i:=1 to n do begin
if x[i]>x[max] then max:=i;
if x[i]<x[min] then min:=i;
end;
p:=1;
for i:=max to min do begin
p:=p*x[i];
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 13.05.2011 в 19:52.
Mad_Cat вне форума Ответить с цитированием
Старый 13.05.2011, 19:51   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Mad_Cat, кстати, Ваше решение имеет малюсеньку ошибочку....

например, проверьте, какое произведение выдаст Ваш код для массива:
Цитата:
Код:
5 7 8 6 1 4
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.05.2011, 19:53   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

это не мое решение) это небольшая поправка мимоходом кода Мирзали)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 13.05.2011 в 19:56.
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макс элемент в одномерном массиве igabenu Общие вопросы Delphi 9 03.03.2011 11:38
Группа в одномерном массиве BaronVik Помощь студентам 5 21.10.2010 05:58
В одномерном массиве, состоящем из n вычислить в Паскале: Rusat Помощь студентам 3 07.03.2010 15:59
Замена данных в одномерном массиве Jaroslav Microsoft Office Excel 2 09.06.2009 08:25
Поиск в одномерном массиве Joxter Помощь студентам 6 13.12.2008 14:19