СРОЧНО!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по убыванию, найти количество отрицательных элементов массива, стоящих на четных местах
Program fantscrin; const n = 10; Var a: array [1..n] of integer; i,j,k:integer; s:real;Begin for i:=1 to n do a[i]:=random(20)-10; for i:=1 to n do write(a[i], ' '); for i:=1 to n do for j:=1 to n-1 do if (a[j]
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.