Выдает ошибку мол: индекс находился вне границ ! уже стол проломал головой( 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.
При массиве вида [0..2,0..7] циклы должны быть такие:
For a:=0 to 2 do - внешний
For b:=0 to 7 do - внутренний