Задача 2. Одномерный массив задан случайным образом

1. Постановка задачи.

Одномерный массив задан случайным образом. Организовать вывод массива. Найти сумму его элементов, вычислить факториал элементов массива, среднее арифметическое его элементов.

2. Математическая модель.

Result=1*2*…*a sum=a[1]+a[2]…+a[5]

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
a	Случайный массив чисел	Integer
i	Счетчик	Integer
sum	Сумма элементов массива	Real

5. Код программы.

program z2;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, crt;

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

i:integer;

sum:real;

function fact (a:integer):integer;

var j:integer;

begin

result:= 1;

for j:= 1 to a do

result:= result * j;

end;

begin

for i:=1 to 5 do

a[i]:=Random(i*3-1);

for i:= 1 to 5 do

begin

writeln ('a[',i,']=',a[i]);

writeln ('(a[',i,'])!=',fact(a[i]));

sum:= sum+a[i];

end;

writeln ('Сумма = ', sum:0:0);

writeln ('Среднее арифметическое = ', sum/5:0:2);

readln;

end.

6. Результаты выполнения программы.