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

[Len]

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

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

[volvo]

5. Пожалуйста, точно пишите условие задачи

Если Вам задали это в таком виде, то уточните у преподавателя, что имеется в виду. Пока это - набор слов.

[Len]

Выглядеть это должно примерно так:

Код

Program massiv;
uses crt;
var
a:array[1..maxCount,1..maxCount]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.

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

[volvo]

Если я правильно ее поняла...

Так вот убедитесь, что Вы правильно ее поняли, чтобы не переделывать программу несколько раз.

И еще:

А в нужной программе нужно заправшивать количество массивов.

Это как Вы себе представляете? работать с одним и тем же массивом для ввода значений, или действительно вводить несколько разных? Предупреждаю следующий вопрос: тогда количество массивов должно быть известно еще на этапе компиляции, а не "после запуска". Уточняйте условие...

[Len]

сегодня я узнала точные условия проги:
суммирование одномерных массивов.
То есть на экране должно быть
1) Введите кол-во массивов (она наверно это за размерность принимает)
2) Введите количество элементов:
3) Введите 1 элемент 2 массива, и.т.д.
А потом: сумма всех элементов=...

[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 - 23.04.2005 20:11

[volvo]

write('Введите количество массивов: '); readln(n);
write('Введите количество элементов каждого массива : '); readln(m);

Это куда в таком случае девать?



Хотя... Извиняюсь, я же не админ. Меня в принципе не спрашивали

[Len]

Да уж! Ну вы и вежливые...
Я с вами поздоровалась по-человечески, а получаю одни упреки. Даже как-то обидно...
А что, люди, которые отвечают на сообщения разве не админы???
Если не хотите помочь - не надо, но при этом зачем грубить? Вас никто не обижал, а вот я обиделась.