массив Опции

[Linus'ka]

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

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

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

Сообщение отредактировано: volvo - 19.01.2006 16:22

[Романтик]

Код

var
mas:array[1..100] of integer;
n,i:integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
readln(mas[i]);
for i:=1 to n do write(mas[i]);



close(input);
Close(output);
end.

Сообщение отредактировано: James_Bond - 19.01.2006 17:01

[volvo]

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

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

[Романтик]

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

[klem4]

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

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

Сообщение отредактировано: klem4 - 19.01.2006 16:35

[Романтик]

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

[Linus'ka]

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

[klem4]

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

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

Сообщение отредактировано: klem4 - 19.01.2006 17:16

[Романтик]

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 Про файл ведь ничего сказано не было