Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
Var A:array[1..10] of Integer;
i,N,k,l,j:integer;
begin
Readln(N);
For i:=1 to N do
A[i]:=Random(1,10);
For i:=1 to N do
Write(A[i],' ');
Writeln;
For i:=1 to N do
If (A[i]>=6) and (A[i]<=20) then
k:=k+1;
Writeln('количество значений лежащих в промежутке [6 до 20] ',k);
For i:=1 to N-1 do
For j:=i+1 to N do
If A[i]*A[j]>10 then
l:=l+1;
Writeln('количество значений п<span>роизведение которых больше 10</span>',l);
end.
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9