найдите ошибку

[Сова]

Проверьте задачу почему то не работает
заменить все отрицательные элементы двухмерного массива вещественных чисел нулями и посчитать сумму положительных элементов.

program mal;
uses crt;
var a:array[0..1,0..2] of integer;
begin
r:=0;
for i:=0 to r do;
for j:=0 to r do;
begin
if a[i,j]<0 then
a[i,j]:=0;
r:r+a[i,j];
end;
writeln (r);
readln;
end.

У вас тоже проблемы со зрением?
Значок # справа от значка "Цитата" видите?
Вот с его помощью и оформляйте код как положено...

[alex_fcsm]

Вот это поправьте

r:=r+a[i,j];

цикл нужно не до r прокручивать, тем более, что r даже не объявлена(как и остальные переменные i,j)
Кроме того нужно в начале проинициализировать массив

[Dark_Spirit]

извини но ту написан настоящий бред.
Попробуем исправить:

program mal;
uses crt;
var a:array[0..1,0..2] of integer;
(пропущено описание переменной r и переменных i,j);
begin
r:=0;
for i:=0 to r do; -вот тут ты пытаешься прокрутить цыкл от ноля к нулю, потому что у тебя r=0, точка с запятой после этого оператора не ставиться, ну а если поставили, значит не будет выполняться тело цикла;
for j:=0 to r do; - в этой строке аналогичная ошибка
begin
if a[i,j]<0
then
a[i,j]:=0;
r:r+a[i,j]; - самая страшня строка: во первых пропущен знак "="(даж и не знаю как компилятор это смог откомпилировать.), дальше ты в цикле увеличиваешь его границу(а вот сдесь ошибок может быть её больше);
end;
(у тебя и массив пустой потому ничего не увидишь)
writeln (r);
readln;
end.

Вот правильное решение(сравни с тем что ты написал):
program mal;
uses crt;
var a:array[0..1,0..2] of integer;
r:real;
i,j:integer;
begin
writeln('Введите массив');
for i:=0 to 1 do
for j:=0 to 2 do
begin
write('a[ ',i,' , ',j,' ]= ');
readln(a[i,j]);
end;
r:=0;
for i:=0 to 1 do
for j:=0 to 2 do
begin
if a[i,j]<0 then
a[i,j]:=0;
r:=r+a[i,j];
end;
writeln (r);
readln;
end.

[alex_fcsm]

а массив проинициализирует кто?

P.S. По-моему модератор красным по белому написал, что нужно использовать тег форматирования кода

[начинающий кодер]

var a:array[0..1,0..2] of integer;

интересно зачем для 2 элементов 2-мерный массив для 3-х будет 3-хмерный и т.д.?

[maLoy*508]

Сообщение от начинающий кодер

var a:array[0..1,0..2] of integer;

интересно зачем для 2 элементов 2-мерный массив для 3-х будет 3-хмерный и т.д.?

Извините, а Вы задание выше, то бишь в первом посте, читали?? и описанный массив по-моему содержит шесть элементов... Где Вы тут увидели 2 элемента??
по-моему Dark_Spirit дал исчерпывающий ответ....

[DM_bite]

program mal;
uses crt;
var a:array[0..1,0..2] of integer;
begin
r:=0;
for i:=0 to r do;
for j:=0 to r do;
begin
if a[i,j]<0 then
a[i,j]:=0;
r:r+a[i,j];
end;
writeln (r);
readln;
end.

[offtop]Мне страшно...[/offtop]

[motaro]

Сообщение от maLoy*508

описанный массив по-моему содержит шесть элементов... Где Вы тут увидели 2 элемента??

помоему не 6 а 4!

[maLoy*508]

помоему не 6 а 4!

я в шоке...
считаем как в школе...
первый элемент - [0,0]
второй элемент - [0,1]
третий элемент - [0,2]
четвертый элемент - [1,0]
пятый элемент - [1,1]
шестой элемент - [1,2]
....

Модератор закрывайте тему... а то начался флуд....

[motaro]

Сообщение от maLoy*508

я в шоке...
считаем как в школе...
первый элемент - [0,0]
второй элемент - [0,1]
третий элемент - [0,2]
четвертый элемент - [1,0]
пятый элемент - [1,1]
шестой элемент - [1,2]
....

Модератор закрывайте тему... а то начался флуд....

да все четко, я был не прав.