Предмет: Информатика,
автор: space1engine
Помогите выдает ошибку мол: индекс находился вне границ массива!!!
Уже стол проломал головой(
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
Ты перепутал внешний и внутренний цикл.
При массиве вида [0..2,0..7] циклы должны быть такие:
For a:=0 to 2 do - внешний
For b:=0 to 7 do - внутренний
При массиве вида [0..2,0..7] циклы должны быть такие:
For a:=0 to 2 do - внешний
For b:=0 to 7 do - внутренний
Похожие вопросы
Предмет: Английский язык,
автор: Drago34311
Предмет: Қазақ тiлi,
автор: amanaaat7
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Наиля156
Предмет: Информатика,
автор: 123456789910131