Цитата:
Сообщение от mariicka
Помогите пожалуйста с задачей. Вот что у меня вышло, но тут что то не сходится.
|
Можно и так, как предлагает
MagentaTiger, но я просто несколько "причесал" Вашу программу, исправив несколько моментов:
1. Writeln(a[i],' '); Ну зачем же выводить числа с переводом строки?! Начало массива неизбежно уходит далеко за верхний край экрана. Да и пробел в этом случае абсолютно бессмыслен. Кроме того, аккуратнее выглядит, если использовать форматный вывод.
2. Массив c[i] вообще не сформирован! Что толку его выводить?
Код:
Program QP286;
Var
a,c: Array[1..99] Of Integer;
q,p,i,max :Integer;
Begin
Randomize;
q:=99;
For i:=1 To q Do
a[i]:=1+Random(100);
For i:=1 To q Do
Write(a[i]:4);
Writeln;
Writeln;
max:=a[1];
For i:=2 To q Do
If a[i]>max Then max:=a[i];
Writeln('max = ',max);
Writeln;
p:=0;
FOR i:=1 to q do
if a[i]<max then
begin
p:=p+1;
c[p]:=a[i];
end;
For i:=1 to p do
Write(c[i]:4);
Readln
End.