Дана последовательность чисел, найти в ней наименьшее число - Turbo Pascal

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

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

Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1
В чём ошибка?

Решение задачи: «Дана последовательность чисел, найти в ней наименьшее число»

textual
Листинг программы
uses crt;
const c=65536;
var a:array[1..c] of integer;
i,n,k:integer;
f:text;
begin
readln(n);
k:=65536;
For i:=1 to n do
begin
readln(A[i]);
if a[i]<k then k:=a[i]
end;
assign(f,'out.txt');
rewrite(f);
writeln(f,k);
close(f);
end.

Объяснение кода листинга программы

Этот код написан на языке Turbo Pascal и выполняет следующую задачу:

  1. Создается переменная c со значением 65536, которая представляет собой максимальное количество чисел, которые могут быть хранены в массиве.
  2. Создается переменная a, которая представляет собой массив из n чисел.
  3. Переменные i, n и k инициализируются значениями 1, n и 65536 соответственно.
  4. В цикле for переменная i итерируется от 1 до n.
  5. Внутри цикла переменная a[i] считывается из входных данных.
  6. Если значение a[i] меньше значения переменной k, то значение k обновляется значением a[i].
  7. После завершения цикла создается файл f с именем 'out.txt', который будет использоваться для записи результата.
  8. Функция rewrite(f) используется для перезаписи содержимого файла f.
  9. Значение переменной k записывается в файл f с помощью функции writeln(f,k).
  10. Файл f закрывается с помощью функции close(f).

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

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