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

Question

Помогите выдает ошибку мол: индекс находился вне границ массива!!!
Уже стол проломал головой(
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.

Comments

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

---

For a:=0 to 7 dobeginFor b:=0 to 2 do

---

mas[a,b]

---

Ясно?

---

попробую сейча

---

неа, не получается(((

Answer 1

Ты перепутал внешний и внутренний цикл.
При массиве вида [0..2,0..7] циклы должны быть такие:
For a:=0 to 2 do - внешний
 For b:=0 to 7 do - внутренний

Comments

Господи, да я не углядел с этим делом, устал видимо, спасибо Вам огромное!!