Программа с одномерными массивами.

[Ольга198812]

В массиве (5;-16;7;9;6;3;-8;4;0;-12;15;2) найти максимальны и минимальный элементы. Расположить элементы стоящие между ними в порядке убывания и затем найти сумму элементов, имеющих четные индексы и делящиеся на три без остатка.
Заранее огромнейшее спасибо!

[vovk]

В массиве (5;-16;7;9;6;3;-8;4;0;-12;15;2) найти максимальны и минимальный элементы. Расположить элементы стоящие между ними в порядке убывания и затем найти сумму элементов, имеющих четные индексы и делящиеся на три без остатка.
Заранее огромнейшее спасибо!

раз на чём писать не известно пишу на чём хочу))
как то так

#include <iostream> 
#include <cmath> 
using namespace std; 
 
int main() 
{ 
  int mas_[12] = {5,-16,7,9,6,3,-8,4,0,-12,15,2}, min_, max_, temp, start_, end_;
  min_ = max_ = mas_[0];
  for (int i = 1; i < 12; i++)
  {
  if (mas_[min_] > mas_[i]) min_ = i;
  if (mas_[max_] < mas_[i]) max_ = i;
  }
  if (max_ > min_) 
  {
  start_ = min_;
  end_ = max_;
  }
  else
  {
  start_ = max_;
  end_ = min_;
  }
   for (int i = start_ + 1; i < end_; i++)
		for (int j = start_ + 1; j < end_-i; j++)
           if (mas_[j+1] > mas_[j])
		   {
		   temp = mas_[j+1]; mas_[j+1] = mas_[j]; mas_[j] = temp;
		   }
		   temp = 0;
  for (int i = 0; i < 12; i++)
  {
  if (!(i%2) && !(mas_[i]%3))
  temp += mas_[i]; 
  cout << "mas_[" << i << "] = " << mas_[i] << "\n";
  }
  cout << "\nsum = " << temp;
  return 0; 
}

[Ольга198812]

Извиняюсь, на паскале писать)

[vovk]

На паскале мне не интерстно,
покажите наработки = помогу запросто.

[Ольга198812]

Сообщение от vovk

На паскале мне не интерстно,
покажите наработки = помогу запросто.

У меня есть только начало, дальше не могу разобраться...

program lab3;
const n=12;
var i,j,k,p: integer;
max,buf:real;
x:array[1..n] of real;
f: text;
begin
k:=0;
assign(f,'mass3.pas');
reset(f);
for i:=1 to n do
read(f,x[i]);

[vovk]

паскаль то какой?

[Ольга198812]

паскаль - ABC

[vovk]

У ABC какие то свои хитросплетения, ну да ладно
кстати зачем вам тип real для элементов массива, если заранее известно, что все элементы целочисленные?

дальше всё просто, после того как заполнили массив,
приступаем к поиску минимального и максимального элемента, ищем одновременно и тот и другой за 1 проход,
для начала будем считать, что первый элемент и минимальный, и максимальный о чём и сообщим переменным, k индексом минимального элемента, p максимального

k:=1;
p:=1;
for i:=2 to n do // надеюсь понятно почему со 2 элемента начали
begin
if (x[i] < x[k]) k:=i;  //если элемент массива с индексом i меньше элемента массива с индексом k , 
//начинаем считать его минимальным, и присваиваем k индес этого элемента, то биш i
if (x[i] > x[p]) p:=i; //по аналогии с минимальным
end;

так теперь я отдыхаю, а вы продолжайте ))

[Ольга198812]

Спасибо! но непонятно, почему со второго начали, почему?

[vovk]

А зачем нам 1 элемент проверять? мы же изначально решили, что какой то элемент нужно назначить минимальным, и какой то максимальным, чтобы с ними сверять,
Ну а раз так, то назначили 1 элемент, а если его уже назначили, то зачем его значение с самим собой сравнивать, и так ясно что они равны ))

всё я спать, мысли разбегаются, пальцы заплетаются.