Question

Помогите, пожалуйста, решить задачу:
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм. 

Answer 1

program chik;
var a:array[1..100]of integer;
i,min:integer;
begin
for i:=1 to 25 do
begin
read(a[i]);
end;
min:=a[1];
for i:=2 to 25 do
begin
if(a[i]<min)then min:=a[i];
end;
write(min);
end.