Оскільки повідомлення нам бреше, в ньому виходить 33 символи, отже потрібно всього лише 33*8, що дорівнює 264.(звісно якщо не рахувати крапку в кінці)
Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.
Карандашик нарисовал квадрат.
Команды и их назначение:
1. всегда
2. если
3. повторить 10