Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/32: Рейтинг темы: голосов - 32, средняя оценка - 5.00
3 / 3 / 0
Регистрация: 23.10.2012
Сообщений: 21
1

Прибавить к каждому элементу одномерного массива заданное число, найти сумму всех элементов полученного массива

11.11.2012, 21:33. Просмотров 6280. Ответов 6
Метки нет (Все метки)


Pascal
1
2
3
4
5
6
7
8
9
10
11
Program qq;
Var i,k:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
read(k)
for i:=1 to 10 do
a[i]:=a[i]+k;
for i:=1 to 10 do
write (a[i]);
end.
Это программа для того, чтобы прибавить к каждому элементу массива число k. Как его дополнить, что бы ещё найти сумму всех элементов ПОЛУЧЕННОГО массива?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 21:33
Ответы с готовыми решениями:

Прибавить к каждому элементу массива число 25
Дан массив целых чисел.Прибавить к каждому элементу массива число 25.(желатеельно расписать...

Прибавить к каждому третьему элементу массива число
После заполнения массива прибавить к каждому третьему элементу число, которое находится в левом...

К каждому элементу массива прибавить некоторое число Х
Сформировать одномерный массив из n положительных чисел, вводимых с клавиатуры. К каждому элементу...

Прибавить к каждому элементу число 3 и посчитать сумму элементов матрицы, находящихся в нечетных столбцах
Создать массив из случайных чисел от 1 до 100 размера M на N. Прибавить к каждому элементу число...

6
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 643
11.11.2012, 21:42 2
Pascal
1
2
3
s:=0;
for i:=1 to 10 do s:=s+a[i];
write(s);
1
3 / 3 / 0
Регистрация: 23.10.2012
Сообщений: 21
11.11.2012, 21:54  [ТС] 3
Так получается?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program qq;
Var i,k,s:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
read(k)
for i:=1 to 10 do
a[i]:=a[i]+k;
for i:=1 to 10 do
write (a[i]);
s:=0;
for i:=1 to 10 do s:=s+a[i];
write(s);
end.
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 643
11.11.2012, 21:57 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var i,k,s:integer; 
    a:array[1..10] of integer;
begin
for i:=1 to 10 do read(a[i]);
read(k);
for i:=1 to 10 do a[i]:=a[i]+k;
for i:=1 to 10 do write(a[i]:3);
writeln;
s:=0;
for i:=1 to 10 do s:=s+a[i];
write(s);
end.
0
3 / 3 / 0
Регистрация: 23.10.2012
Сообщений: 21
11.11.2012, 22:03  [ТС] 5
В чем заключается ошибка в той программе, которую написала я? Просто при ее вводе у меня все получается..
0
Неадекват и грубиян
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 643
11.11.2012, 22:06 6
Цитата Сообщение от Tifani Посмотреть сообщение
При вводе вашей программы
моей? это структурированная ваша. я просто сделал её код более читабельным и всё о_О
программа работает правильно. введите другие числа и убедитесь. не верите - вооружитесь калькулятором и проверьте сами.
0
3 / 3 / 0
Регистрация: 23.10.2012
Сообщений: 21
11.11.2012, 22:09  [ТС] 7
Нет, простите, я уже разобралась =) Приношу свои извинения =)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2012, 22:09

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

Заполнить массив и прибавить к каждому элементу массива сумму индексов этого элемента
Создать двумерный массив. Количество строк n и количество столбцов m (n и m – целые положительные...

Добавить к каждому элементу массива заданное число.
Добавить к каждому элементу массива заданное число. Дан массив положительных чисел....

Добавить к каждому отрицательному элементу массива заданное число
Подскажите как это сделать

Заполнить одномерный массив из 15-ти элементов случайными числами затем к каждому четному элементу массива прибавить по 1
Заполнить одномерный массив из 15-ти элементов случайными числами затем к каждому четному элементу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.