Program asd; USES crt; Const x=50; Const y=25; var a,b,c,min:real; BEGIN clrscr; min := x; if y < min then min := y; Writeln('Minimalnoe chislo: ',min); Readln; END. Все очень просто, это не массивы, а простые условия !
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
