Версия для печати темы

Автор: som 18.05.2006 14:32

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

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

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.

Автор: volvo 18.05.2006 14:43

Я вот тоже не пойму. Тебе что, форума http://forum.pascalnet.ru/index.php?showforum=12 мало для Турбо-Паскаля? Какого ... ты сюда-то задачи ДЛЯ ПАСКАЛЯ постишь???