Заполните массив с клавиатуры целыми числами и найдите значение минимального элемента массива.
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве. Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
значение минимального элемента массива
(Написать программу на Паскале)
Ответы
Ответ дал:
0
var
N,i,min:longint;
a:array [1..100] of longint;
begin
Read(N);
For i:=1 to N do Read(a[i]);
min:=100000;
For i:=1 to N do
if a[i]<min then min:=a[i];
Write(min);
end.
N,i,min:longint;
a:array [1..100] of longint;
begin
Read(N);
For i:=1 to N do Read(a[i]);
min:=100000;
For i:=1 to N do
if a[i]<min then min:=a[i];
Write(min);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад