0 / 0 / 0
Регистрация: 24.10.2012
Сообщений: 9
1

Сложить минимальное четных и максимальное нечетных элементов массива

18.11.2012, 10:15. Показов 1375. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны натуральное число n, действительные числа a1, a2, … ,an. Получить
min(a2, a4, … )+ max(a1, a3, … )
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 10:15
Ответы с готовыми решениями:

Операции над массивами. Определить максимальное значение среди нечетных элементов массива и минимальное среди четных элементов массива
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов...

Определить минимальное значение среди четных элементов массива и максимальное среди нечетных элементов массива
Дан одномерный массив А размерностью 16. Определить минимальное значение среди четных элементов...

Массив: найти максимальное и минимальное значение среди четных и нечетных элементов.
В массиве Е(65) найти максимальное и минимальное значение среди четных и нечетных...

Поменять в файле местами минимальное и максимальное значения среди четных и нечетных элементов
Дан бинарный файл целых чисел. Поменять в нем местами минимальное и максимальное значения среди...

2
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.11.2012, 10:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var n,i:integer;
    a,mn,mx:real;
begin
repeat
write('Cколько чисел ввести n>1 n=');
read(n);
until n>1;
writeln('Введите ',n,' действительных чисел:');
read(mx);
read(mn);
for i:=3 to n do
 begin
  read(a);
  if odd(i)and(a>mx) then mx:=a
  else if (i mod 2=0)and(a<mn) then mn:=a;
 end;
writeln('Максимальный с нечетным номером=',mx:0:2);
writeln('Mинимальный с четным номером=',mn:0:2);
write('Их сумма=',mn+mx:0:2);
end.
1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,590
Записей в блоге: 1
18.11.2012, 10:30 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var A:array[1..100] of real;
    i,n,imax,imin:byte;
Begin
    write('Введите N: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imax:=1;imin:=2;
    For i:=1 to n do
     if odd(i)and(A[i]>A[imax]) then imax:=i
      else if not(odd(i))and(A[i]<A[imin]) then imin:=i;
    writeln;
    writeln('Max = ',A[imax]);
    writeln('Min = ',A[imin]);
    writeln('Min + max = ',A[imin]+A[imax]);
    readln;
 End.
0
18.11.2012, 10:30
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 10:30
Помогаю со студенческими работами здесь

Минимальное и максимальное значение среди четных элементов массива
Здравствуйте. Задали следующее задание: Найти сумму всех нечетных элементов массива, произведение...

В массиве найти сумму чётных и нечётных, максимальное и минимальное
в одномерном массиве найти: 1)сумму чётных и нечётных 2)максимальное и минимальное

В одномерном массиве найти сумму чётных и нечётных, максимальное и минимальное значения
в одномерном массиве найти 1)сумму чётных и нечётных 2)максимальное и минимальное знач.

Найти максимальное значение между суммами четных и нечетных элементов массива, расположенных до минимального элемента
Найти максимальное значение между суммами четных и нечетных элементов массива, расположенных до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru