Помогите пожалуйста с задачей. Вот что у меня вышло, но тут что то не
сходится.
Program 286;
Var a,c: Array[1..99] Of Integer;
q,i,max :Integer;
Begin
Randomize;
q:=99;
For i:=1 To q Do
a[i]:=1+Random(100);
For i:=1 To q Do
Writeln(a[i],' ');
max:=a[1];
For i:=2 To q Do
If a[i]>max Then max:=a[i];
Writeln('max=',max);
Readln;
Writeln(c[i],' ');
FOR i:=2 to q do
if a[i]<> max then
Writeln( a[i], ' ');
End.