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

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;

begin

clrscr;

randomize;

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

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

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