Масиви

[sendruck]

Объясните мне пожалуйста мою ошибку

Program Masiv;
var n:longint;
begin
write ('vvedit n');
readln (n);
var
a:array [1..n] of real;
i:integer;
a:real;
begin
for i:=1 to n do
if a=0 then
writeln (a[i]);
if a=1 then
writeln (a[i]);
if a=2  then
write ('a[',i,']');
end;
end.

Используем специальный тег или кнопку #

[alex_fcsm]

Много ошибок
1. Нет условия
2. Код оформлен неправильно(придется за тебя исправлять)
3. Каким образом раздел переменных попал в основное тело программы??

[sendruck]

а как мне записать число елментов масива если не известно его грани?

[alex_fcsm]

Ну вы же предполагаете сколько их всего будет? 100? 200? Сделайте большой массив

var a:array[1..1000] of integer

Иначе читайте про динамически массивы