Заполнить массив первыми N натуральными числами и вывести его

@Катю · Регистрация: 27.04.2015

Author24 — интернет-сервис помощи студентам

Напишите программу, которая заполняет массив первыми N натуральными числами и выводит его.

Входные данные
Входная строка содержит размер массива N . Гарантируется, что 0 < N ≤ 10000 .

Выходные данные
Программа должна вывести содержимое массива: N последовательных натуральных чисел от 1 до N .

Примеры
входные данные
5
выходные данные
1 2 3 4 5

В чем ошибка? программа наполовину проходит дистанционную проверку?

Pascal

const max=100;
var x:array[1..max] of integer;
    x,n,i:integer;
begin
 
write();
readln(n);
 
for i:=1 to n do
 begin
  x[i]:=i;
  write(x[i],' ');
 end;
end.

@volvo · 14.12.2015, 14:36

Сообщение от Катю

Pascal

1	const max=100;

при заданном условии

Сообщение от Катю

0 < N ≤ 10000

- как минимум нелогично

@capricornus CF · 14.12.2015, 22:02

Уберите повторное определение x в третей строке, и const сделайте 10000.

@Катю · 15.12.2015, 19:20 **[ТС]**

спасибо)

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	14.12.2015, 22:02	3
	Уберите повторное определение x в третей строке, и const сделайте 10000. 0

@Катю 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 35
	15.12.2015, 19:20 [ТС]	4
	спасибо) 0

Опции темы