Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Вопрос по массиву...

Автор: Port111 3.04.2003 8:11

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

Автор: ozzy 3.04.2003 14:07

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 3.04.2003 16:19

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

Автор: deman 3.04.2003 16:33

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

А ты думал 8)