Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив положительные элементы на число 0.
program name;constn:=15vari,a:array[1..n] of integer;beginfor i:=1 to n do beginrandom(a[i]);writelm(a[i]);end;end.Пол задания
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
