Помогите с массивом
Добавлено: 01 апр 2009, 08:42
основное задание я сделал, нужно только теперь упорядочить по возрастанию элементы отдельно стоящие на четных местах и элементы стоящие на нечетных местах в массиве
Вот кусок программы (основной)
pr - произведение
остальное думаю все понятно
Вот кусок программы (основной)
pr - произведение
остальное думаю все понятно
Код: Выделить всё
program l4;
const
n=15;
var
a:array[1..n] of real;
z,i:integer;
sum,min,pr:real;
begin
writeln ('vvedite', n ,'elementov massiva');
for i:=1 to n do
read(a[i]);
pr:=1;
for i:=1 to n do
begin
if a[i]>0 then pr:=pr*a[i];
writeln ('pr= ',pr:5:2);
end;
min:=a[1];
z:=1;
for i:= 2 to n do
if a[i]<min then begin
z:=i;
min:=a[i];
end;
sum:=0;
for i:=1 to z-1 do
begin
sum:=sum+a[i];
writeln ('sum= ', sum:2:2);
end;
end.