Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент https://www.cyberforum.ru/ pascal/ thread1987787.html 3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы. Выведите...	Pascal Измените исходный массив так, чтобы минимальный элемент в каждом столбце был заменен на 0 2) Двумерный массив А(n, m) заполнен случайными целыми числами, находящимися в интервале от 0 до 20. Измените исходный массив так, чтобы минимальный элемент в каждом столбце был заменен на 0....
Pascal Составьте алгоритм, который каждую встреченную в слове букву «с» заменял бы на сочетанием букв «ха» https://www.cyberforum.ru/ pascal/ thread1987785.html Драсте всем!!! Помогите с 4 задачами.:cry::cry::cry: 1) Составьте алгоритм, который каждую встреченную в слове букву «с» заменял бы на сочетанием букв «ха». Если такого символа нет, то выведите...	Pascal Ввести два целых числа, произвести вычисления в подпрограммах, оформить подпрограммы в DLL https://www.cyberforum.ru/ pascal/ thread1987621.html Ввести два целых числа a и b. - Произвести вычисления в подпрограммах. Оформить подпрограммы в библиотеке DLL. 1) функция - результат Х (целое число) передать в вызывающую программу в качестве...
Массив символов. В процедуре отсортировать массив по алфавиту в обратном порядке Pascal Ввести данные (тип данных указан в вариантах) с клавиатуры в виде «Х=», где i – индекс элемента. - После окончания ввода для контроля данных вывести на экран массив. - Обработать данные в...	Pascal Перенос условия за пределы цикла PascalABC.NET https://www.cyberforum.ru/ pascal/ thread1987511.html Здравствуйте. Я столкнулся с проблемой, которую самому мне решить не по силам, помогите, пожалуйста, новичку. Суть проблемы в том, что я не знаю как вынести условие за пределы цикла. Это условие...
Pascal Если числа отрицательны и не равны между собой, то каждое число замените наибольшим из них https://www.cyberforum.ru/ pascal/ thread1987393.html Введите с клавиатуры три числа:A,B,C. ЕслиA>B>C>0,то замените все числа их квадратами и выведите результаты на экран.Если они отрицательны и не равны между собой, то каждое число замените наибольшим...	Pascal Найти в строке abc34f69 максимальную цифру через процедуру. Предусмотреть случай когда цифр нет Найти в строке abc34f69 максимальную цифру через процедуру. Предусмотреть случай когда цифр нет.
Pascal Оптимизация кода Помогите пожалуйста. Такая проблема всплыла, нужно оптимизировать код, чтобы он выполнялся за 1 секунду, но идей как это сделать 0 На входных данных там целое число n, 1≤n≤10^9.... https://www.cyberforum.ru/ pascal/ thread1987282.html	Pascal Удалить число, которое располагается на n-м месте в стеке Создать стек со случайными целыми числами. Удалить число, которое располагается на n-м месте в стеке (значение n вводится с клавиатуры) Помогите разобраться с задачей, пробовал делать по готовым... https://www.cyberforum.ru/ pascal/ thread1987256.html
Pascal Вычислить сумму членов ряда F1 = (i^2)cosix , F2 = (i^2)+2i+3 , X = 2,6 , N = 24 .Формулу прикрепил в изображении	Pascal Определить значение функции y=F(x) на отрезке [A,B] с шагом H Определить значение функции y=F(x) на отрезке с шагом H. Функция: √\|lnx\| , A= 0,5 , B=4,6 , H=05. Заранее спасибо https://www.cyberforum.ru/ pascal/ thread1987232.html

Hitoku

1754 / 1346 / 1407

Регистрация: 28.10.2016

Сообщений: 4,267

24.05.2017, 01:22

Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными - Pascal - Ответ 10471073

24.05.2017, 01:22. Показов 5733. Ответов 1

Метки (Все метки)

Сообщение было отмечено _DjeK_ как решение

Решение

Pascal

var
  a: array [1..100] of integer;
  i, imax, imin, n: byte;
begin
  write('n = '); readln(n);
  for i := 1 to n do begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;
  imin := 1; imax := 2;
  write('Массив: ');
  for i := 1 to n do begin
    write(a[i], ' ');
    if i mod 2 = 0 then begin
      if a[imax] < a[i] then imax := i;
    end else
      if a[imin] > a[i] then imin := i;
  end;
  writeln;
  write('Max = ', a[imax], '; Min = ', a[imin]);
end.

Вернуться к обсуждению:
Найти минимальный элемент из элем массива с нечетными номерами и максимальный элемент элементов с четными Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.05.2017, 01:22

Готовые ответы и решения:

Одномерный массив. Найти минимальный элемент из его элементов с четными номерами
Массив заполнен случайными числами в диапазоне от 0 до 50 размера N. Найти минимальный элемент из...

Дан массив А размера N.Найти минимальный элемент из его элементов с четными номерами: А2,А4,А6
Дан массив А размера N.Найти минимальный элемент из его элементов с четными номерами: А2,А4,А6

Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … .
Array12. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами:...

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами
Помогите сделать

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.05.2017, 01:22

Помогаю со студенческими работами здесь

Найти максимальный элемент массива и минимальный элемент массива и поменять их местами
Задача 1. Массив X(50). Найти максимальный элемент массива и минимальный элемент массива и поменять...

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

дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент.
дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить...

программа должна находить минимальный элемент массива среди элементов с нечетными индексами!
лЮДИ ХЕЛП! Массив заполняется с клавиатуры!

Наверх