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

Узнай цену своей работы

Формулировка задачи:

Привет! Ребята, нужна помощь, посмотрите, пожалуйста, верно ли я написал код программы к задаче. Задача: Даны натуральное число n, действительные числа a1,a2,…,an. Получить: min(A1,A3...) Код программы:
program Z823g;
 
{$APPTYPE CONSOLE}
 
var
 A:array[1..10] of Real;
 I,N:Integer;
 Min:Real;
begin
 Write('Vvedite N= ');
 Readln(N);
 for I:=1 to N do
   begin
     Write('Vvedite A',I,'= ');
     Readln(A[I]);
   end;
 Min:=A[1];
 for I:=2 to N do
   if I mod 2 <> 0 then
     if A[I] < Min then
       Min:=A[I];
 Writeln(Min:10:10);
 Readln;
 
end.
Благодарю за помощь!

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

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. Создается переменная I для хранения целого числа.
  3. Создается переменная t для хранения вещественного числа.
  4. Создается переменная m для хранения вещественного числа.
  5. Запрашивается у пользователя ввод значения n с помощью функции Write('n: '); Read(n);
  6. Пользователь вводит значение m с помощью Read(m);
  7. Начинается цикл от 2 до n с помощью for i:=2 to n do begin
  8. Пользователь вводит значение t с помощью Read(t);
  9. Проверяется, является ли значение i нечетным с помощью функции Odd(i), и если значение m больше значения t, то значение m заменяется на значение t с помощью (m>t) then m:=t;
  10. Выводится значение m с помощью WriteLn(m). Этот код находит минимальное число с нечетным индексом из последовательности чисел, введенной пользователем, и выводит его на экран.

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы