Обработка одномерных массивов

[lolwto]

• Нахождение в массиве минимального элемента среди положительных и его номера в массиве.
• Нахождение произведения элементов больших 1 но меньших 5.
• Нахождение среднего арифметического значения всех элементов массива.
• Расположить массив в порядке убывания

помогите......

[Desha]

А какие -нибудь данные о массиве? Мощность, тип? Одномерный или более?

[lolwto]

ну как бы только одномерный массив. Темку читайте

[Desha]

Алгоритм таков поиска минимума:
1. заполнить массив
2. найти первый не отрицательный элемент (и не равный нулю) и условно принять его за минимальный. В отдельную переменную запомнить его номер
3. в цикле сравнить все элементы массива и, если текущий элемент меньше минимального, то изменить минимальный на текущий. Не забыть так же изменить номер в отдельной переменной

Попробуй, покажи, что получилось. Далее посмотрим

[lolwto]

var a:array [1..100] of real;
    max,minn,boln,ravn:real;
    i,index,valof:integer;

    procedure Col;
     begin
      for i:=1 to index do
       begin
        if a[i]>0 then boln:=boln+1;
        if a[i]<0 then minn:=minn+1;
        if a[i]=0 then ravn:=ravn+1;
       end;
       Writeln(boln,' elem>0; ',minn,' elem<0; ',ravn,' elem=0');
     end;

     procedure Sort;
      begin
        for i:=1 to index-1 do
       begin
       if a[i]>a[i+1] then
      begin
        max:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=max;
      end;
    end;
    for i:=1 to index do
     Write('a[',i,'] = ',a[i],' ');
      end;
      /////
      procedure MinMax;
       var max,min:real;
       begin
          max:=-(maxint);
          min:=maxint;
         for i:=1 to index do
          begin
            if a[i]>max then max:=a[i];
            if a[i]<min then min:=a[i];
          end;
          Writeln('Summa=',max+min);
       end;

       procedure ProcEl;
       var gran,gran2:real;
        begin
          Writeln('Neobhodimaya granitsa'); Readln(gran);
          gran2:=gran/10;
          for i:=1 to index do
           begin
            if (a[i]<=gran+gran2) and(a[i]>=gran-gran2) then
              Writeln('est takoi: ',a[i]);
           end;
        end;

 begin
  Writeln('Col. elem.'); Readln(index);
  for i:=1 to index do
   begin
    Write('elem. ',i,' = '); Readln(a[i]);
   end;
    Writeln('1 - esli poschitat colichestvo; 2 - symma max i min; 3 - sort; 4 - pechat');
    Readln(valof);
    case valof of
    1: Col;
    2: MinMax;
    3: Sort;
    4: ProcEl;
    end;
  end.

[Desha]

Не совсем вижу связь между условием задачи и кодом, который Вы привели. Вы можете использовать функцию сортировки. И то она сортирует в порядке возрастания (на сколько я вижу).

[lolwto]

вы поможете?

[Mad_Cat]

Обязательно. Контакты в профиле-недорого!

[Desha]

Вижу в данном случае "поможете" это "напишете за меня"))) А так хотелось именно объяснить как это делается...

const n=20; //кол-во элементов
var a:array [1..n] of real; //массив
min:real; //минимальный элемент
i:integer; //счетчик
k:integer; //номер мин элемента
BEGIN
writeln('Дан массив');
randomize;
//заполняем массив случайными числами
for i:=1 to n do
   begin
     a[i]:=random(101); //определяем чему равен элемент
     write(a[i], '   ');     //выводим его
  end;
//поиск первого положительного элемента
for i:=1 to n do 
      if a[i]>0 then  //если положителен
          begin
             min:=a[i];  //условно берем что он мин
             k:=i;         //запоминаем его номер
             break;      //выходим из цикла. Это для того чтобы лишние операции не выполнять
          end;
//вот теперь поиск настоящего минимального 
for i:=1 to n do
  if (a[i]<min) and (a[i]>0) then //если он меньше принятого мин и при этом положительный 
     begin
      min:=a[i]; //меняем минимальный 
      k:=i;        //запоминаем номер
     end;
writeln;
writeln('Минимальный элемент = ', min, ' его номер  = ',k);
END.

как один из более легких вариантов

[Politehnik]

Дан целочисленный массив А[1..4, 1..5]. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10. Заполнение массива осуществить с клавиатуры.
Ребят, очень надо, вопрос зачета-незачета, кто сможет помогите, программа нужна в паскале, желательно упрощенный вариант, кто сможет, иначе препод просто завалит вопросами