Дан массив всех целых чисел .Найти сумму элементов в массиве. (Паскаль)

+ 0 -

Balabanochka

24 сент. 2013 г., 21:51:41 (10 лет назад)

uses crt;
var i,count:integer;
a:array[1..20] of integer;

begin
randomize;
count:=0;
for i:=1 to 20 do a[i]:=random(6)+1;
for i:=1 to 20 do begin
count:=count+a[i];
write(a[i],' ');
end;

writeln;
writeln(' count = ', count);
readln;

end.

+ 0 -

2582256

25 сент. 2013 г., 0:21:07 (10 лет назад)

Решение #1

var a:array[1..10] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

for i:=1 to 10 do

s:=s+a[i];

Writeln(s);

end.

В этом решении вводится 10 целых чисел, и считается их сумма.

Пример

Ввод

1 2 3 4 5 6 7 8 9 10

Вывод

55

Решение #2

var a:array[1..1000] of integer;

i,s,N:integer;

begin

read(N);

s:=0;

for i:=1 to N do

read(a[i]);

for i:=1 to N do

s:=s+a[i];

Writeln(s);

end.

В этом решении сначала вводится N - количество элементов в массиве затем сам массив и выводится ответ

Пример

Ввод

8

1 2 3 4 5 6 7 8

Вывод

36

Решение #3

var a:array[1..10] of integer;

s,i:integer;

begin

s:=0;

for i:=1 to 10 do begin

randomize;

a[i]:=random(2001)-1000

write(a[i],' ');

end;

for i:=1 to 10 do

s:=s+a[i];

writeln;

writeln(s);

end.

В этом решении программа сама генерирует массив из 10 чисел в который входят числа от -1000 до 1000

пример

Ввод

Вывод

0 5 851 -1000 999 515 66 -786 -55 545

1140

Вопросы, недочеты в ЛС