массив Опции

[Linus'ka]

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

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

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

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

[Анна]

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