Вот программа, которая определяет минимальный элемент из чисел 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
