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

@Tifani · Регистрация: 23.10.2012

Pascal

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. Как его дополнить, что бы ещё найти сумму всех элементов ПОЛУЧЕННОГО массива?

@pryda · 11.11.2012, 21:42

Pascal

1
2
3

s:=0;
for i:=1 to 10 do s:=s+a[i];
write(s);

@Tifani · 11.11.2012, 21:54 **[ТС]**

Так получается?

Pascal

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.

@pryda · 11.11.2012, 21:57

Pascal

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.

@Tifani · 11.11.2012, 22:03 **[ТС]**

В чем заключается ошибка в той программе, которую написала я? Просто при ее вводе у меня все получается..

@pryda · 11.11.2012, 22:06

Сообщение от Tifani

При вводе вашей программы

моей? это структурированная ваша. я просто сделал её код более читабельным и всё о_О
программа работает правильно. введите другие числа и убедитесь. не верите - вооружитесь калькулятором и проверьте сами.

@Tifani · 11.11.2012, 22:09 **[ТС]**

Нет, простите, я уже разобралась =) Приношу свои извинения =)

@Tifani 5 / 5 / 0 Регистрация: 23.10.2012 Сообщений: 21
	11.11.2012, 22:03 [ТС]	5
	В чем заключается ошибка в той программе, которую написала я? Просто при ее вводе у меня все получается.. 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 645
	11.11.2012, 22:06	6
	Сообщение от Tifani При вводе вашей программы моей? это структурированная ваша. я просто сделал её код более читабельным и всё о_О программа работает правильно. введите другие числа и убедитесь. не верите - вооружитесь калькулятором и проверьте сами. 0

@Tifani 5 / 5 / 0 Регистрация: 23.10.2012 Сообщений: 21
	11.11.2012, 22:09 [ТС]	7
	Нет, простите, я уже разобралась =) Приношу свои извинения =) 0

Опции темы

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

Решение