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

решение #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

 

вопросы, недочеты в лс

 

 

uses crt; var i,count: integer; a: array[1..20] of integer; beginrandomize; count: =0; for i: =1 to 20 do a[i]: =random(6)+1; for i: =1 to 20 do begincount: =count+a[i]; write(a[i],' '); end;

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

end.

Var a,b: integer; begin   write('a b через пробел: ');   readln(a,b);   if div 10) mod 10) mod 2 = 0) or       div 10) mod 10) mod 2 =0) then    begin     a: =a*a; b: =floor(sqrt(b));   end   else   begin     a: =floor(sqrt(a));     b: =b*b;   end;   writeln('a = ',a,'   b = ',b); end.a b через пробел: 13 54 a = 3   b = 2916 a b через пробел: 24 16 a = 576   b = 4

Уэтого редактора своеобразный интерфейс, который ни на что не похож, он не похож на word или excel. я расскажу, про мои методы работы в нем. я выбираю команды не путем выбора пиктограммы, а нажимая hotkey на клавиатуре (типа shift+c для обрезки и прочие). масшаьируюсь колесиком с зажатым ctrl. панорамируюсь средней кнопочкой. он поддерживает и графические планшеты, так что в нем можно рисовать и с дигитайзера и кнопки (виртуальные и ) на нем тоже работают и на них тоже можно навесить нужные для вас команды.