Информатика

Гела

14 декабря, 13:18

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

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

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.