Найти минимальное число с нечётным индексом - Pascal

  1. Привет! Ребята, нужна помощь, посмотрите, пожалуйста, верно ли я написал код программы к задаче. Задача: Даны натуральное число n, действительные числа a1,a2,…,an. Получить: min(A1,A3...) Код программы:


textual

Код к задаче: «Найти минимальное число с нечётным индексом - Pascal»

var
  n, I: Integer;
  t, m: Real;
begin
  Write('n: '); Read(n);
  Read(m);
  for i:=2 to n do begin
    Read(t); if Odd(i) and (m>t) then m:=t;
  end;
  WriteLn(m);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5



Похожие ответы
  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

  1. Доброго времени суток! Крайне необходима помощь экспертов в Pascal Вот задания: 4. Какое минимальное число букв необходимо заменить в слове Х, с тем, чтобы оно стало перевертышем?   Во всех нужно написать свои ф-ции... Если возможно написать коды как можно более простым языком - буду весьма признателен! Заранее благодарю за любую помощь!

  1. На вход подается набор символов, оканчивающийся точкой. Количество символов не превышает 200. Составить из имеющихся в тексте четных цифр максимальное число, которое читается одинаково как слева направо, так и справа налево. Все цифры можно не использовать; незначащих нулей в числе не должно быть. Если требуемое число составить нельзя, то вывести строку «NO»; если можно, то в первой строке вывести строку «YES», а во второй — строку, изображающую найденное число.

  1. Задание: в целочисленном векторе vector найти минимальное положительное и максимальное отрицательное числа, не входящие в этот вектор. Предусмотреть случай, когда таких элементов нет. Нужно добавить выделенное условие в программу:

  1. Большую часть задания я выполнил, осталось только это, ничего в голову не приходит, прошу помочь. Полностью задание звучит так: Разработать программу, в которой предусмотреть: - ввод размерности N одномерного массива М, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1];. Найти среднее значение элементов массива и найти элементы, имеющие минимальное и максимальное отклонение от среднего. А вот моя программа:

  1. Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов данной матрицы. Пожалуйста, помогите решить

  1. Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения. Здравствуйте помогите пожалуйста с написанием программы. Я смог написать только для одного числа а надо для трёх(пример снизу).

  1. Программа для нахождения числа (в промежутке от 1 до m включительно) с наибольшим количеством делителей. В конце выводит само число и количество его делителей.