помогите в паскале программу наладить Ошибка времени выполнения: Индекс находился вне границ массива.

Question

помогите в паскале программу наладить Ошибка времени выполнения: Индекс находился вне границ массива.

Миша Задорожный Знаток (289), закрыт 7 лет назад

var

i,k: integer;

a:array[1..10] of integer{0,5,0,1,5,10,12,6,10,3};

begin

for i:=0 to 9 do

Readln (a[i]);

k:=0;

for i:=0 to 9 do

if a[i]<6 then inc(k);

writeln(k);

end.

Answer 1

У тебя индексы массива от 1 до 10, а счетчик в цикле ты почему-то начинаешь с нуля.
Зачем вводить массив руками если он уже задан?

const
a: array[1..10] of integer = (0,5,0,1,5,10,12,6,10,3);
var
i,k: integer;
begin
for i := 1 to 10 do write(a[i], ' ');
writeln;
k:=0;
for i := 1 to 10 do if a[i] < 6 then inc(k);
writeln(k);
end.

Если это все то же несчастное задание из вопроса http://otvet.mail.ru/question/164758947
то условие должно быть a[i] >= 6 -- "не меньших заданного числа a=6", т. е. чисел больших либо равных.

Answer 2

артем смирнов Ученик (136) 10 лет назад

здесь вроде ошибка в Readln(a[i])попробуй написать просто Readln(a) допустим

Сельский грамотейУченик (122) 6 лет назад

Не слушай его)))

Answer 3

Помогите исправить ошибку!!!
Var
A: array [1..10] of integer;
j,c,t: integer;
begin
for j :=1 to 10 do
Write ( a [ j ],' ');
c := 0;
for j := 1 to 9 do
if A[j-1] < A[j] then
begin
c := c + 1;
t := A[j];
A[j] := A[j-1];
A[j-1] := t;
end;
writeln (c);
end.