Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Перемещение картинки в GraphABC Кто знает как в GraphABC переместить картинку(чтоб было видно как она перемещаеться), по отрезку из одной точки в другую https://www.cyberforum.ru/ pascalabc/ thread700780.html Pascal ABC Трижды определить значение суммы
трижды определить значение суммы, используя три различных цикла 4 s=∑ (n=x/sqr(n+1)) n=1
Pascal ABC Изобразить движение транспорта на перекрестке https://www.cyberforum.ru/ pascalabc/ thread700659.html
Нужно сделать движение как на этой картинке все картинки в архиве и залил на хостинк картинок первой должна проехать красная машина ссылки на изображение 1) smotr.im/98JS 2) http://smotr.im/98JT 3) http://smotr.im/98JV
Pascal ABC Составить программу, которая печатает фамилии людей с данным именем Описать процедуру сравнения двух слов. Составить программу, которая печатает фамилии людей с данным именем. Описати процедуру порівняння двох слів. Скласти програму, яка друкує прізвища людей з даним іменем https://www.cyberforum.ru/ pascalabc/ thread700644.html
Pascal ABC Замена одного символа на три
Здравствуйте. Есть задача: "Даны две строки. Заменить на символы *** символы из 1-ой строки, которые встречаются во второй строке. Исходные строки вводит пользователь." var str1, str2: string; i,j: integer; begin write('Введите первую стоку: '); readln(str1); write('Введите вторую строку: ');
Pascal ABC Задача про Кузнечика https://www.cyberforum.ru/ pascalabc/ thread700619.html
Здравствуйте! Помогите пожалуйста решить задачку: У одного из преподавателей параллели С в комнате живёт кузнечик, который очень любит прыгать по клетчатой одномерной доске. Длина доски — N клеток. К его сожалению он умеет прыгать только на 1, 2, . . . , k клеток вперёд. Однажды преподавателям стало интересно, сколькими способами кузнечик может допрыгать из первой клетки до последней. Помогите...
Pascal ABC Найти число m – среднее арифметическое всех элементов массива https://www.cyberforum.ru/ pascalabc/ thread700565.html
2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m. Добавлено через 10 минут помогите пожалуйста
Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. Pascal ABC
1. Дан массив из К целых чисел. Написать программу, подсчитывающую количество пар одинаковых элементов, стоящих рядом. 2. Дан массив из К элементов. Вывести на экран все четные элементы массива в порядке убывания. 3. Написать программу для вывода на экран всех маленьких русских букв. спасибо.
Pascal ABC Goto(x,y) ;+graphABC неверно работает Помогите решить, неверно выводит: uses GraphABC,crt; //var begin TextColor(0); HideCursor; LowVideo; https://www.cyberforum.ru/ pascalabc/ thread700536.html Pascal ABC Заполнить массив из 10 элементов случайными числами и отсортировать первую половину по возрастанию, а вторую – по убыванию Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать первую половину по возрастанию, а вторую – по убыванию. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 13 14 25 30 76 97 58 41 32 11 https://www.cyberforum.ru/ pascalabc/ thread700492.html
Заполнить массив из 10 элементов случайными числами и отсортировать его по последней цифре Pascal ABC
Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 11 41 97 Результат: 30 11 41 32 13 14 25 76 97 58
Pascal ABC Заполнить массив случайными числами и отсортировать его по убыванию Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по убыванию. Пример: Исходный массив: 4 5 -8 3 -7 -5 3 1 0 9 Результат: 9 5 4 3 3 1 0 -5 -7 -8 https://www.cyberforum.ru/ pascalabc/ thread700490.html
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.11.2012, 10:29 0

Сложить минимальное четных и максимальное нечетных элементов массива - Pascal ABC - Ответ 3715455

18.11.2012, 10:29. Показов 1372. Ответов 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.


Вернуться к обсуждению:
Сложить минимальное четных и максимальное нечетных элементов массива Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 10:29
Готовые ответы и решения:

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

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

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

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

2
18.11.2012, 10:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2012, 10:29
Помогаю со студенческими работами здесь

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

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

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

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

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