Question

Написать программу нахождения минимального элемента в одномерном масиве В[1..9] Нужна помощь! Язык турбо паскаль)

Answer 1

Uses crt;varB:array[1..9] of integer;i,min:integer;beginclrscr;randomize;for i:=1 to 9 dobeginB[i]:=random(100);write(b[i],' ');end;min:=b[1];for i:=1 to 9 doif b[i]<min then min:=b[i];writeln('min=',min);end.