program massiv; uses crt; type Mass = array of Integer; var n, i, x : integer; mas : mass; begin WriteLn('Сколько значений нужно поместить в массив?'); readLn(n); SetLength(mas, n); for i := 0 to n-1 do begin WriteLn('Введите ' i ' элемент в массив'); readln(mas[i]); end; for i := 0 to n-1 do if(mas[i] < 0) then x:= x 1; WriteLn('Всего отрицательных элементов = ' x); ReadLn(); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
