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

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

textual

Код:

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.

Похожие ответы
  1. никто не сталкивался с такой задачкой??? тфблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, приндалежащие главной диоганали,равны нулю,а каждый элемент не епринадлежащий главной диагонали,равны 2,1 или 0(числу очков набранных в игре:2-выйгрыш,1ничья,0-проигрыш.)и храниться в текстовом файле. Найти: а)число команд,имеющих больше побед чем поражений. б)определить номера команд,прошедших чемпионат без поражений. я пробывала сделать у меня такая чушь получилась вот разочаровалась и решила попросить помощи...

  1. Все четные элементы целочисленного массива K(n) поместить в массив L(n), а нечетные – в массив M(n). Подсчитать количество и тех и других.

  1. Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12. (решить с помощью оператора CASE) Заранее спасибо...)

  1. А вы случайно не знаете как сделать калькулятор в СС отличной от десятичной. Который будет выполнять операции минуя 10 СС. То есть будет производить деление, умножение, сложение в столбик))

  1. Составить программу, которая подсчитывает количество простых чисел в десятичному записи натурального числа n. Напечатать числа, которые являются простыми, расположив их в порядке возрастания. Использовать множества.

  1. Даны две очереди целых чисел. Создать дек из элементов очередей следующим образом: записывать в начало дека все отрицательные элементы, в конец – все положительные. Вывести очередь на экран.

  1. Дано следующие:1+2/5+3/7+4/7+5/9+6/9+7/11..+98/101+99/103. Подскажите как решать такое в паскале? Если можно приведите примеры.

  1. нужно вычислить, с помощью цикла: sqrt(2+sqrt(4+sqrt(6....+sqrt(n))))) -- пользователь сам вводит n. sqrt -- знак корня ))) заранее благодарнаДобавлено через 42 минутыДобавлено через 13 секунд

  1. Помогите, пожалуйстаC++ (Qt)1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 #include #include   using namespace std;   void main() {     int n;     cin >> n;     double* a;     a = new double[n];     double temp;     for (int i = 0; i < n; i++)     {         temp = (i - 1) * (i - 1) * (i - 1) / (i + 1);         a[i] = (i - 1)/ (i + 1) + sin(temp);         cout << a[i] << " ";     }       cout << endl;     double min = 1000;     for (int i = 0; i < n; i++)     {         if(a[i] > 0)         {             cout << a[i] << " ";             if(min > a[i])                 min = a[i];         }     }     cout << endl << "min: " << min << endl;     system("Pause"); }


Нашли ошибку?
Развитие проекта
Яндекс.Метрика