IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массивы, turbo pascal
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Артур

Репутация: -  0  +


Дана задача:
Массивы
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
•Сумму положительных элементов массива.
•Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Упорядочить элементы массива по убыванию.

Я наёшл сумму, min и max. А вот дальше не пойму как. Помогите пожалуйста smile.gif

Код

program massiv;
var
a:array[1..10] of integer;
z,s,i,y,n,min,max,nommin,nommax:integer;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;
for i:=1 to 10 do
  if a[i]>0 then s:=s+a[i];

writeln(s);
readln;
max:=a[1];
nommax:=1;
for i:=1 to 10 do
  if max<a[i] then
    begin
     max:=a[i];
     nommax:=i;
    end;
writeln('max=',max);
readln;

min:=a[i];
nommin:=1;
for i:=1 to 10 do
   if min>a[i] then
    begin
     min:=a[i];
     nommin:=i;
    end;
writeln('min=',min);
readln;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
som   Массивы   18.05.2006 18:51
volvo   p := 1; if nommin < nommax then for i := nomm…   18.05.2006 18:54
som   спасибо   18.05.2006 20:22
Айка   спасибо У меня не работает почему то может я не …   25.10.2007 16:56
-dron4ik-   Помогите пожалуйста решить задачку на Турбо Паскал…   1.01.2008 19:02
Client   Массив из натуральных (раз ты сказал randomize) ил…   1.01.2008 19:15
volvo   При чем тут "натуральные числа" и rando…   1.01.2008 19:32
Client   Верно, поэтому я и спросил Вот процедура из FAQ…   1.01.2008 19:51
volvo   Что именно пояснить? Как инициализировать генерато…   1.01.2008 20:03
Client   random(x) - вернет случ натуральное значение от 0 …   1.01.2008 20:10
volvo   А ты его открывал, чтоб закрывать? :mad: Или ты …   1.01.2008 20:18
-dron4ik-   Препод сказал так использовать   1.01.2008 20:39
-dron4ik-   Парни ну как с задачкой??? Что мне написать то? Оп…   1.01.2008 20:43
-dron4ik-   В матрице 3на4 заменить все четные строки на 1-ы. …   1.01.2008 20:45
-dron4ik-   Compilier ПОМОГИ ПОЖАЛУЙСТА   1.01.2008 20:56
compiler   Compilier ПОМОГИ ПОЖАЛУЙСТАo_O ты чего? по задаче…   1.01.2008 21:19
Гость   3 строки 4 столбца   1.01.2008 21:21
compiler   3 строки 4 столбцатобишь изменить надо только втор…   1.01.2008 21:24
Гость   все четные строки надо заполнить 1- рками   1.01.2008 21:23
Гость   написано у меня так в тетраде В матрице 3X4 за…   1.01.2008 21:31
compiler   можна написать так... var a:array[1..3, 1…   1.01.2008 21:37
Гость   Ништяк compilier.! Так как ты надо побольше…   1.01.2008 21:55
Гость   А вот следующее задание В ТЕСКТЕ ЗАМЕНИТЬ Р НА…   1.01.2008 21:57
Гость   Compilier ты тут?   1.01.2008 22:13
compiler   Compilier ты тут?у меня в профиле есть для этого с…   1.01.2008 22:32
Гость   кто сможет решить задачу? В массиве из 40-элемен…   1.01.2008 22:31
Гость   Я создал тему АФ КГТУ назся   1.01.2008 22:40
мисс_граффити   Не, ну я понимаю, что Новый год. Выпитое не проход…   2.01.2008 0:03


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 15:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name