Вопрос по массиву... Опции

[Port111]

Как найти сумму всех элементов массива? Ну очень надо помогите..

[ozzy]

const
 n=100;
 m=100;
var
 a: array [1..n,1..m] of real;
 i,j:integer;
 sum:real;
begin
 {Заполнить массив случайными значениями}
 randomize;
 for i:=1 to n do
   for j:=1 to m do
     a[i,j]:=random;
 {Сумму подсчитать }
 sum:=0;
 for i:=1 to n do
   for j:=1 to m do
     sum:=sum+a[i,j];
 writeln('Summa = ',sum);
end.

[Port111]

Спасибо большое! Всё таки классный форум....

[deman]

Спасибо большое! Всё таки классный форум....

А ты думал 8)