program pr_1050;
var
i,j,n,a,b,max,ch:integer;
x:array [1..1000] of integer;
begin
  readln(n);
  randomize;
  for i:=1 to n do x[i]:=random(30)-5;
  max:=-100;
  for i:=1 to n do begin
    if x[i]>max then max:=x[i];
  end;
  for i:=1 to n do write(x[i],' ');
  writeln;
  writeln('maximalnoe: ',max);
end.

в turbo pascal эта программа работает прекрасно, во free в массив записываются одни и те же значения

Добавлено через 5 минут
все проблема решилась переустановкой

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.02.2012, 19:55

Ответы с готовыми решениями:

Не работает ассемблер в Free Pascal
Free Pascal при компиляции кода, содержащего вставки на ассемблере, выдает ошибки Uncnown...

Free Pascal работает некорректно
Что за чертовщина? Free Pascal отказывается читать мои команды и творит неведомую хрень. Вот 2...

Программа не работает на Free Pascal
Программа на Free Pascal сразу закрывается, хотя на ABC все нормально работает. Помогите...

Как работает Free Pascal в Windows 7
у меня стоит vista ,хочу поставить window 7 как в window 7 будет работать free pascal может...

	15.02.2012, 19:55

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.02.2012, 19:55

Помогаю со студенческими работами здесь

Free Pascal плохо работает в Windows 7
Здравствуйте! У меня стойт windows 7. Я установил Free Pascal, но он плохо на ней работает?...

Почему не работает модуль graph в Free Pascal
во FreePascal'е не знаю почему не работает этот модуль, в папке units есть graph, у друга работает...

Почему не работает код в Free Pascal методом пузырька?
USES windows; CONST Size=32000; TYPE TArray=array of integer; VAR

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх