program xyz;
var x,y,z,a,b,c:real;
begin
readln(x,y,z);
x:=(sqrt(a)+b)/2*a;
y:=sqrt(abs((3*x+4)/(1-2*x)));
z:=abs(sqr(Cos(x)))/(Ln(1+y));
writeln(z);
end.
Там есть программная кнопка,внимательней смотри.
program mas;
var A:array[1..4,1..6] of integer;
i, j: integer;
summ: integer;
id: integer;
begin
randomize;
for i := 1 to 4 do
begin
for j := 1 to 6 do
begin
A[i, j] := random(30) + 45;
write(A[i,j]);
write(' ');
end;
writeln('');
end;
for j := 1 to 6 do
begin
for i := 1 to 4 do
begin
summ := summ +A[i, j];
end;
writeln(summ / 4);
summ := 0;
end;
readln;
end.
F(n=5) = F(5-1)*(5+1) = F(4)*6;
F(n=4) = F(4-1)*(4+1) = F(3)*5;
F(n=3) = F(3-1)*(3+1) = F(2)*4;
F(n=2) = F(2-1)*(2+1) = F(1)*3;
F(n=1) = 1 ⇒ F(2) = F(1)*3 = 1*3 = 3
F(3) = F(2)*4 = 3*4 = 12
F(4) = F(3)*5 = 12*5 = 60
F(5) = F(4)*6 = 60*6 = <u><em>360
</em></u>
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
