Найти минимальное число с нечётным индексом - 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.
Благодарю за помощь!

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


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