Суммирование одномерных массивов.
Запрос количества массивов, т.е. сколько элементов мы будем суммировать. Вопрос количества элементов каждого массива.
# Введите 1 элемент 2 массива, и.т.д.
А потом, в ответе: сумма (скольких или # 2 и 5) одномерных массивов=...
Помогите, плиз. :molitva:
Полная версия: Суммирование одномерных массивов.
Цитата(Правила раздела)
5. Пожалуйста, точно пишите условие задачи
Если Вам задали это в таком виде, то уточните у преподавателя, что имеется в виду. Пока это - набор слов.
Выглядеть это должно примерно так:
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.
Если я правильно ее поняла...
Только в этой проге двумерный массив, а ей нужно также с одномерным. Еще, тут запрос количества строк и столбцов. А в нужной программе нужно заправшивать количество массивов. Потом запрос элементов.
А в итоге, в ответе должна быть сумма всех этих одномерных массивов.
Код
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.
Если я правильно ее поняла...
Только в этой проге двумерный массив, а ей нужно также с одномерным. Еще, тут запрос количества строк и столбцов. А в нужной программе нужно заправшивать количество массивов. Потом запрос элементов.
А в итоге, в ответе должна быть сумма всех этих одномерных массивов.
Цитата(Len @ 11.04.05 13:38)
Если я правильно ее поняла...
Так вот убедитесь, что Вы правильно ее поняли, чтобы не переделывать программу несколько раз.
И еще:
Цитата
А в нужной программе нужно заправшивать количество массивов.
Это как Вы себе представляете? работать с одним и тем же массивом для ввода значений, или действительно вводить несколько разных? Предупреждаю следующий вопрос: тогда количество массивов должно быть известно еще на этапе компиляции, а не "после запуска". Уточняйте условие...
сегодня я узнала точные условия проги:
суммирование одномерных массивов.
То есть на экране должно быть
1) Введите кол-во массивов (она наверно это за размерность принимает)
2) Введите количество элементов:
3) Введите 1 элемент 2 массива, и.т.д.
А потом: сумма всех элементов=...
суммирование одномерных массивов.
То есть на экране должно быть
1) Введите кол-во массивов (она наверно это за размерность принимает)
2) Введите количество элементов:
3) Введите 1 элемент 2 массива, и.т.д.
А потом: сумма всех элементов=...
Привет, админы!
Если не сложно, подскажите, пожалуйста, как сделать из этой программы одномерный массив. Мне нужна эта же программа, но с одномерным массивом, а не с двумерным.
что за личности? почему адресованно админам? смахивает на нарушение правил!
Если не сложно, подскажите, пожалуйста, как сделать из этой программы одномерный массив. Мне нужна эта же программа, но с одномерным массивом, а не с двумерным.
Код
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.
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.
что за личности? почему адресованно админам? смахивает на нарушение правил!
write('Введите количество массивов: '); readln(n);
write('Введите количество элементов каждого массива : '); readln(m);
Это куда в таком случае девать?
Хотя... Извиняюсь, я же не админ. Меня в принципе не спрашивали
Да уж! Ну вы и вежливые...
Я с вами поздоровалась по-человечески, а получаю одни упреки. Даже как-то обидно...
А что, люди, которые отвечают на сообщения разве не админы???
Если не хотите помочь - не надо, но при этом зачем грубить? Вас никто не обижал, а вот я обиделась.
Я с вами поздоровалась по-человечески, а получаю одни упреки. Даже как-то обидно...
А что, люди, которые отвечают на сообщения разве не админы???
Если не хотите помочь - не надо, но при этом зачем грубить? Вас никто не обижал, а вот я обиделась.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.