Помогите выдает ошибку мол: индекс находился вне границ массива!

Уже стол проломал головой (

program Nimber4;

var

mas:array [0 ... 2,0 ... 7] of integer;

sumplus: integer;

a, b: integer;

begin

sumplus:=0;

For a:=0 to 7 do

begin

For b:=0 to 2 do

begin

writeln ('Введите элемент массива', ' (', a, ',', b, ') ') ; / / works right

readln (mas[a, b]) ; / / works right

if (mas[a, b]>0) then

begin

sumplus : = sumplus + mas[a, b];

end;

end;

writeln ('Сумма положительных чисел в строке: ', sumplus) ;

sumplus : = 0;

end;

end.

Question

Информатика

Мастридия

17 апреля, 12:03

Помогите выдает ошибку мол: индекс находился вне границ массива!

Уже стол проломал головой (

program Nimber4;

var

mas:array [0 ... 2,0 ... 7] of integer;

sumplus: integer;

a, b: integer;

begin

sumplus:=0;

For a:=0 to 7 do

begin

For b:=0 to 2 do

begin

writeln ('Введите элемент массива', ' (', a, ',', b, ') ') ; / / works right

readln (mas[a, b]) ; / / works right

if (mas[a, b]>0) then

begin

sumplus : = sumplus + mas[a, b];

end;

end;

writeln ('Сумма положительных чисел в строке: ', sumplus) ;

sumplus : = 0;

end;

end.

+1

Ответы (1)

Знаете ответ на вопрос?

Мариша · Answer 1

Ты перепутал внешний и внутренний цикл.

При массиве вида [0 ... 2,0 ... 7] циклы должны быть такие:

For a:=0 to 2 do - внешний

For b:=0 to 7 do - внутренний