Контрольная работа: Основы алгоритмизации и программирования кр 1, вар1

i,n,M1:integer;

A1,A4,y:real;

s1:string;

begin

clrscr;

{используем процедуру генерации элементов массива}

randomize;

writeln;

n:=15;

i:=1;

{генерируем элементы массива Х и выводим их на экран}

while i<=n do

begin

writeln (i,'-й член массива',random:10);

x[i]:=random;

i:=i+1;

end;

{задание начальных значений и вывод их на экран}

A1:=0;

A4:=0;

y:=0;

M1:=0;

writeln;

writeln ('A1: ',A1:10);

writeln ('A4: ',A4:10);

writeln ('M1: ',M1);

writeln ('y: ',y:10);

{суммирование элементов массива и определение А1}

i:=1;