program massiv; var i,min: integer; a: array[1..10] of integer; begin writeln ('Введите элементы массива'); for i:=1 to 10 do begin write ('a[',i,']-'); readln (a[i]); end; min:=a[i]; for i:=2 to 10 do if min>a[i] then begin min:=a[i]; end; writeln ('Наименьший элемент в массиве ', min); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
