Помогите пожалуйста!Паскаль ABC Составьте программу, определяющую минимальное из всех введенных вами чисел (число 99 - конец цикла).
Помогите пожалуйста!Паскаль ABC
Составьте программу, определяющую минимальное из всех введенных вами чисел (число 99 - конец цикла).
Гость
Ответ(ы) на вопрос:
ГостьВот программа, которая определяет минимальный элемент из чисел n. Предусловие делать ?
Program asd;
USES crt;
varA:array [1..99] of integer;
i,j,n,min:integer;
BEGIN
Clrscr;
Writeln('Vvedite ramsernost chisel: ');
Readln(n);
For i:=1 to n do
begin
A[i]:=random(10);
Write(' ',A[i]); end;
min:=A[1];
for i:=1 to n do
begin
if a[i]<=min then min:=a[i];
end;
Writeln;
Writeln('Min: ',min);
END.
Не нашли ответ?
Похожие вопросы