Var X,a1,a2,a3,a4,a5: real;

Begin

ClrScr;

writeln ('Vvedute 5 chisel : ');

readln(a1,a2,a3,a4,a5);

x:=a1;

If x<a2 Then x:=a2;

If x<a3 Then x:=a3;

If x<a4 Then x:=a4;

If x<a5 Then x:=a5;

write('bol6wee sredi 5 chisel: ',x:4:3);

Readkey;

end.

3. Скласти програму знаходження площі п'ятикутника АВСОЕ. якщо відомо довжини сторін і діагоналей АЕ, АВ, АС, ВС, СД, ДЕ, АД. При розв'язуванні задачі визначити функцію користувача, яка обчислює площу трикутника за формулою Герона.

Program mesec4c;

Uses Crt;

Var ae,ab,ac,bc,cd,de,ad: real;

Pabc,Pacd,Paed,Sabc,Sacd,Saed,S: real;

Begin

ClrScr;

writeln ('Vvedute storony AE');

readln (ae);

writeln ('Vvedute storony AB');

readln (ab);

writeln ('Vvedute storony AC');

readln (ac);

writeln ('Vvedute storony BC');

readln (bc);

writeln ('Vvedute storony CD');

readln (cd);

writeln ('Vvedute storony DE');

readln (de);

writeln ('Vvedute storony AD');

readln (ad);

Pabc:=(ab+bc+ac)/2;

Sabc:=sqrt(Pabc*(Pabc-ab)*(Pabc-bc)*(Pabc-ac));

Pacd:=(ac+cd+ad)/2;

Sacd:=sqrt(Pacd*(Pacd-ac)*(Pacd-cd)*(Pacd-ad));

Paed:=(ae+de+ad)/2;

Saed:=sqrt(Paed*(Paed-ae)*(Paed-de)*(Paed-ad));

S:=Sabc+Sacd+Saed;

writeln ('Plochya pyatiygol6nika ravna ',S:3:2);

Readkey;

end.

4. Знайти значення функції , де - натуральні числа. Визначити функцію користувача, яка обчислює факторіал числа.

Program mesec4d;

Uses Crt;

Var c,z,p,I,k,n,h,d,m,a,b:integer;

F:real;

Begin

ClrScr;

writeln ('Vvedute kolichestvo n! ');

readln (n);

writeln ('Vvedutekolichestvo k! ');

readln (k);

writeln ('Vvedute kolichestvo m! ');

readln (m);

h:=m+n;

d:=k+n;

z:=1;

for i:=1 to n do

z:=z*i;

c:=1;

for i:=1 to m do

c:=c*i;

p:=1;

for i:=1 to k do

p:=p*i;

a:=1;

for i:=1 to h do

a:=a*i;

b:=1;

for i:=1 to d do

b:=b*i;

F:=c*z/a+p/b;

writeln ('Funkciya F ravna ',F:3:2);

Readkey;

end.

5. Скласти програму обробки одновимірного масиву.

1. Задано одновимірний масив А[1:n] дійсних чисел. Складіть програму, яка визначає, чи є в масиві два нульових елементи, що стоять поряд.

Program rabota5a;

Uses Crt;

const n=9;

Var a:array[1..N] of real;

X:real;

I:integer;

Begin

ClrScr;

writeln ('Vvedute elementu masiva ');

for i:=1 to n do

read(A[i]);

writeln;

i:=1;

x:=0;

Repeat

if A[i]=0 then Begin

if A[i+1]=0 then x:=1

end;

i:=i+1;

Until((x=1) or (i=n+1));

if x=1 then writeln ('Da,est6 dva nylevux elementa kotorue stoyat ryadom')

else writeln ('Net,nety dvyx nylevux elementov kotorue stoyat ryadom');

Readkey;

end.

2. Задано одновимірний масив А[1:n] дійсних чисел. Складіть програму, що підраховує кількість парних елементів масиву, які не кратні 4.

Program rabota5b;

Uses crt;

const n=9;