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