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

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

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

Информатика

Лидия

14 сентября, 16:48

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

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

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.

+3

Ответы (1)

Знаешь ответ?

Авдокея · Answer 1

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

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

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

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