Сортировка массивов пузырьковым методом

@subiker · Регистрация: 16.02.2010

Доброго времени суток ! Если есть люди ко может помочь по моей проблеме помогите пожалуйста

Вот задание:

В одномерном массиве, состоящем из N вещественных элементов (как отрицательных, так и положительных),
вычислить:
А) Произведение элементов стоящих на четных местах в массиве;
В) Найти минимальный элемент и индекс минимального элемента, и индекс отрицательного элемента;
С) Отсортировать массив по возрастанию и результат занести в другой массив
Причем, количество элементов в массиве задается с клавиатуры

@Unrealler · 16.02.2010, 20:26

Pascal

uses crt;
var
   a,b:array[1..100] of real;
   i,j,n,nom:integer;
   min,v,r:real;
begin
clrscr;
v:=1;
min:=41;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ=');
readln(n);
writeln('Èñõîäíûé ìàññèâ');
randomize;
for i:=1 to n do
 begin
  a[i]:=random(51)-10+random;
  write(a[i]:8:2);
  if (odd(i)=false) then v:=v*a[i];
  if (a[i]<=min) then
   begin
    min:=a[i];
    nom:=i;
   end;
 end;
writeln;
writeln('Ïðîèçâåäåíèå ýëåìåíòîâ ñ ÷åòíûìè èíäåêñàìè ',v:0:2);
writeln('Ìèíèìàëüíûé ýëåìåíò ',min:0:2,' ïîä íîìåðîì ',nom);
writeln('Íîâûé îòñîðòèðîâàííûé ìàññèâ');
for j:=1 to n-1 do
 for i:=1 to n-j do
  if (a[i]>=a[i+1]) then
   begin
    r:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=r;
   end;
for i:=1 to n do
 begin
  b[i]:=a[i];
  write(b[i]:8:2);
 end;
readln
end.

@subiker 0 / 0 / 0 Регистрация: 16.02.2010 Сообщений: 6
		1
	Сортировка массивов пузырьковым методом 16.02.2010, 17:51. Показов 801. Ответов 1 Метки нет (Все метки) Доброго времени суток ! Если есть люди ко может помочь по моей проблеме помогите пожалуйста Вот задание: В одномерном массиве, состоящем из N вещественных элементов (как отрицательных, так и положительных), вычислить: А) Произведение элементов стоящих на четных местах в массиве; В) Найти минимальный элемент и индекс минимального элемента, и индекс отрицательного элемента; С) Отсортировать массив по возрастанию и результат занести в другой массив Причем, количество элементов в массиве задается с клавиатуры 0

Опции темы

Сортировка массивов пузырьковым методом

Решение