дается число N (не более 100). затем n чисел. нужно прочитать их. и вывести .

Поиск по форуму доступен и гостям тоже. И Правила Форума для гостей никто не отменял, так что сначала FAQ + Поиск, а уже потом - задаем вопросы, если они все еще актуальны...

Для любителей критиковать действия модераторов - внимательно читать Пункт 13, Подпункт 1 вышеозначенных правил...

James_Bond, тебе показать IP твой и Linus'ka?

В следующий раз за такое буду наказывать...

volvo, можешь наказать.но я сейчас в школе и у нас сетка. в одном кабинете закинули вопрос а я ответил.
наказание в счет помощи одноклассникам. согласен. тут такого ip много.я думаю. так что не удивляйся.

Да ? Хм, вот в этой теме у тебя и автора IP так-же одинаковый, это вы пересели в другой класс ? В 10-м часу ночи ? Странно что школа не закрылась еще ...

у тебя плохое представление о российсикх школах. с разрешения директора наша парраллель
отмечала победу среди волонтеров. доступ в интернет совершенно свободный. кому лень делать домашку писали на этот форум. придя домой они легко перекопировали
код.и со спокойной душой пошли на урок. если не веришь, то удали мой профиль.
P.S. у нас в школе даже кровати есть.

лучше бы вы ему код исправили. в коде ошибка.

У меня программа откомпилировалась и отработала без ошибок, единственное я поменялбы write на writeln.

ps на будущее : доводы "Программа работает не правильно !", "В коде ошибка !" приниматься не будут, телепатов у нас нету, либо ответ будет в стиле "ошибка в 5-й строке"

klem4, я просто перепутал индекс когда распечатовал. теперь весь класс достает. а почему вы любите использовать операторы на -ln?readln,writeln?

                                                        uses crt;
                                    var
mas:array[1..100] of integer;
n,i:integer;
begin
clrscr;
write ('Введите кол-во чисел: ');
readln(n);
write ('Введите числа: ');
for i:=1 to n do
readln(mas[i]);
write ('Результат: ');
for i:=1 to n do write(' ',mas[i]);
end.

ps Про файл ведь ничего сказано не было