Ввод элементов массива Х с помощью цикла for:

[veter_s_morya]

Никак не врублюсь во ввод массивов.
Ввод элементов массива Х с помощью цикла for:
Var x: array [1..100] of real; тут задаем массив от 1 до 100 типа риал
i, n: integer; тип..ясно
begin
readln(N); тут вводим порядковый номер массива,(пример N=5, получается, что будут созданы 5 массивов 1,2…5[1..10])?да?
for i:=1 to N do от 1 до N
begin
write(‘x(‘,i, ‘)=’); (тут у меня темный лес, что к чему…?)
readln(x[i]) (тут у меня темный лес)
end;
end.

[Stilet]

Дык а ты запусти прожку и посмотри что она делать будет. )
Write выведет тебе x(номер по порядку, сгенерированный циклом)
а readln позволит ввести данные с клавы в очередной элемент массива

[alexgk]

Var x:array [1..100] of real;//тут резервирование массива х и описание типа его содержимого - задаем массив от 1 до 100 типа риал
i,n: integer;//описание переменных
begin
readln(N);//тут вводим колличество элементов массива
for i:=1 to N do от 1 до N
begin
write(‘x(‘,i, ‘)=’);//здесь у тебя на экран выводится х("твой текущий номер элемента, т.е. i")
readln(x[i]);// здесь идет запрос ввода элемента массива текущим номером i, а после ввода курсор переводится на другую строку
end;
end.

[veter_s_morya]

Это был ввод, теперь вывод массива (думаю так мне будет нагляднее)

Var x:array [1..10] of real;
i,n: integer;
begin
readln(N);
while N<>0 do //без этой штуки меня выбрасывает
for i:=1 to N do
begin
write('x(',i, ')=');
readln(x[i]);
for i:=1 to N do //выводит
writeln(x[i]:6:1);
end;
end.

Получается, если ввожу 4, то идет запрос х(1)= ,жму 3 и получаю 3.0 0.0 0.0 0.0
Как сделать, чтобы нули заполнились... там другими числами.
PS. Я новичек, который любит иногда потупить :-)

[alexBlack]

Сообщение от veter_s_morya

Это был ввод, теперь вывод массива (думаю так мне будет нагляднее)

Чтобы было нагляднее люди придумали добавлять в начале строк отступы.
Цикл вывода массива должен быть после его ввода, а не после ввода каждого элемента как у Вас. Хотя... может у Вас такие требования в задании.

Var x:array [1..10] of real;
     i,n: integer;
begin
    readln(N);
    for i:=1 to N do begin
        write('x(',i, ')=');
        readln(x[i]);
    end;
    
    writeln('Введенный массив:');
    for i:=1 to N do writeln(x[i]:6:1);

    readln;  { Ожидание нажатия enter } 
end;

А чтобы посмотреть как программа работает, есть средства отладки.
Используйте клавиши F7, F8 в IDE BP. Если не хотите ими пользоваться, можно добавить в нужное место кода writeln(<переменная>) и посмотреть чему равна некоторая переменная на каждом шаге.

PS. Я новичек, который любит иногда потупить :-)

"Глупость - божий дар, но не надо им злоупотреблять."
(Не помню откуда цитата)