Дан массив целых чисел из N элементов заполненный случайным образом числами из промежутка[ -1000; 1000]. Найти количество двухзначных элементов в pascal.
const N = 1000; var A: array [1..N] of integer; i,k: integer; begin k:=0; for i:=1 to N do A[i]:=random(2001)-1000; for i:=1 to N do if ((A[i]>=10) and (A[i]<=99)) or ((A[i]>=-99) and (A[i]<=-10)) then k:=k 1; writeln(k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
