Помогите, пожалуйста, решить задачу:Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.
Помогите, пожалуйста, решить задачу:
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.
Гость
Ответ(ы) на вопрос:
Гость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]
Не нашли ответ?
Похожие вопросы