Програмування масивів

2.5. Обчислення суми елементів масиву

Program pr2; 

Uses сrt;

const n=20; 

type massiv=array[1..n] of integer;

var

  a:massiv;

  i:integer; 

  s:integer;

begin

  clrscr;

  randomize; 

  for i:=1 to n do a[i]:=random(100);

  writeln(‘Вихідні дані’);

  for i:=1 to n do write(a[i]:4); 

  writeln; 

  s:=0;

  for i:=1 to n do s:=s+a[i];

  writeln(‘Результат’);

  writeln(‘Сума s=’, s:4);

end.

2.6.  Обчислення добутку елементів масиву з парними номерами.

Program pr3; 

Uses crt;

const n=20; 

type massiv=array[1..n] of integer;

var

  a:massiv;

  i:integer; 

  p:longint;