Ограниченный массив....

[bygoga]

В массиве максимум 15 элементов, количество элементов вводится с клавиатуры и затем каждое значение вводится с клавиатуры. Как сделать так, чтобы пользователь не смог физически ввести больше 15 элементов?

[Slicker]

For i:= 1 to 15 do
readln(a[i]);

[bygoga]

не так не катит...если так, то оно полюбому запрашивает 15 значений...а надо так чтобы значений было сколько угодно...но не больше 15

[Slicker]

а так?

vvod: Writeln('Введите число элементов');
readln(n);
If n > 15 then
begin
writeln('Слишком много элементов, максимальное их число 15');
goto vvod;
end;
for i= 1 to n
readln(a[i]);

[sverhuVniz]

........................
If n > 15 then
begin
writeln('Слишком много элементов, максимальное их число 15')
else
begin
for i:=1 to n do
readln(a[i]);
end;
...........................

[Kostia]

Спрашивай до тех пор, пока пользователь не введет правильное значение и все

repeat
  readln(n);
  if n>15 then writeln('Пожалуйста, поаторите ввод ');
until n<15;
...

[puporev]

repeat  //вводим размер массива
write('n=');
readln(n);
until (n>0)and(n<=15);
i:=1;  //вводим элементы массива
repeat
readln(a[i]);
inc(i);
until i=n;

[Slicker]

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

repeat  //вводим размер массива
write('n=');
readln(n);
until (n>0)and(n<=15);
i:=1;  //вводим элементы массива
repeat
readln(a[i]);
inc(i);
until i=n;

красивое исполнение... есть чему поучиться.. про инкременты и декременты почему то забывают..))

[bygoga]

Не это тоже не то(( Вы меня наверное не поняли, если я ввожу количекство элементов массива 15 именее, то все нормально должно быть..а вот если я ввожу допустим 16, то оно на последнее не должно смотреть, а запросить от меня вввод только 15 значений и все!!!!

[Kostia]

if n>15 then n:=15; ???