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

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]end;
write(min);
end.