Суммирование одномерных массивов. Опции

[Len]

Суммирование одномерных массивов.
Запрос количества массивов, т.е. сколько элементов мы будем суммировать. Вопрос количества элементов каждого массива.
# Введите 1 элемент 2 массива, и.т.д.
А потом, в ответе: сумма (скольких или # 2 и 5) одномерных массивов=...

Помогите, плиз. :molitva:

[Len]

Привет, админы!
Если не сложно, подскажите, пожалуйста, как сделать из этой программы одномерный массив. Мне нужна эта же программа, но с одномерным массивом, а не с двумерным.

Код

Program massiv;
uses crt;
var
a:array[1..50,1..50]of real;
i,j,n,m:integer;
sum:real;
begin
clrscr;
write('Введите количество массивов: '); readln(n);
write('Введите количество элементов каждого массива : '); readln(m);
for i:=1 to n do for j:=1 to m do
begin
 write('Введите ',j,' элемент',i,' массива ');
 readln(a[i,j])
end;
sum:=0;
for i:=1 to n do for j:=1 to m do sum:=sum+a[i,j];
writeln('Сумма элементов одномерного массива = ',sum:1:2);
readln;
end.

что за личности? почему адресованно админам? смахивает на нарушение правил!

Сообщение отредактировано: Oleg_Z - 24.04.2005 0:11