Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов....

Question

Дана прямоугольная таблица, которая содержит не
более 10 строк и не более 10 столбцов. Найти сумму элементов, которые
расположены в строках с нечетными номерами.

Answer 1

Constn=10;m=10;
var
a:array[1..n,1..m]of integer;
i,j,s:integer;
begin     
     for i:=1 to n do       
        begin             
            writeln;  s:=0;                     
                for j:=1 to m do                         
                   begin                               
                      a[i,j]:=random(50);                               
                      write(a[i,j]:4);                             
                         if i mod 2<>0 then                                 
                             s:=s+a[i,j];                         
                   end;                     
                          if i mod 2<>0 then                         
                               writeln(s:6);       
           end;
     end.

Comments

выдает ошибку на первой строчке, говорит что "ожидался идентификатор"

---

const

---

const n=10; m=10; После Const пробел

---

да я это понял, но все равно ошибка которую я тебе написал

---

Писала в Паскале, когда скопировала сюда, то не обратила внимание на то, сто Const "слепился"

---

Только что проверяла - работает идеально

---

ой извини) я просто после programm ничего не написал)

---

а я вообще Program не пишу

---

Все Ок?

---

да нормас) спасибо)