блок схема

uses crt;
Type
    tmas=array[1..100] of real;
var a,b,k,t,i,j:byte;
x,y:tmas;
s:real;
function summa(dlmas:byte; mas:tmas; h:byte):real;
var sum:real; i:byte;
begin
sum:=0.0;
for i:=1 to dlmas do
sum:=sum+mas[i]+h;
summa:=sum;
end;
function step(pok:byte;osn:byte):real;
var i:byte; st:real;
begin
st:=osn;
for i:=2 to pok do
st:=st*osn;
step:=st;
end;
 
begin
write('vvedite dlinu massiva k');
readln(k);
write('Vvedite dlinu massiva t');
readln(t);
for i:=1 to k do
begin
x[i]:=random(100)-6;
writeln(x[i]:3);
end;
for j:=1 to t do
begin
y[j]:=random(100)-5;
writeln(y[j]:3);
end;
writeln('Vvedite a,b'); readln(a,b);
s:=((sqrt(step(k,a)-step(t,b))/(summa(k,x,b))+(summa(t,y,a))));
writeln('Resultat:',S);
readkey;
end.

uses crt;
var
   m:array[1..100,1..100] of integer;
   b:array[1..100] of integer;
   key:byte; n,y,i,j,z,sum:integer;
Begin
Clrscr;
writeln('Vedite zxn');
readln(z,n);
    for i:=1 to z do
    begin
    for j:=1 to n do
    begin
    m[i,j]:=random(10);
    write(m[i,j]:3);
    end;
    writeln;
    end;
for i:=1 to z do
begin
sum:=0;
for j:=1 to n do
if m[i,j]>0 then
begin
sum:=sum+m[i,j];
end;
b[i]:=sum;
writeln('Summa elementov ',i,'-oy stroki=',sum);
end;
repeat
key:=0;
    for i:=1 to z-1 do
    if b[i]>b[i+1] then
    begin
    y:=b[i];
    b[i]:=b[i+1];
    b[i+1]:=y;
    key:=1;
    end;
until key=0;
writeln('Uporydocheniy massiv');
for i:=1 to z do
write(b[i]:3);
readkey;
end.

Uses crt;
 Type
  tabl=record
  nomr:integer;
  punkto:string[20];
  punktn:string[10];
  dni:1..7;
  end;
 
 Var Spis:array[1..100]of tabl;
 mas:array[1..100]of integer;
 N,i,key:byte;
 Isk_nom:string[5];
 z,adr,first,last:integer;
 
Begin
Clrscr;
Write('Vvedti chislo zapisey N = ');
Readln(N);
Writeln('Vvedite spisok po polyam');
 For i:=1 to N do
  With Spis[i] do
   begin
   Write('Nomer reysa ');
   Readln(nomr);
   mas[i]:=nomr;
   Write('Punkt otpravlenia - 20 simvolov ');
   Readln(punkto);
   Write('Punkt naznachenia - 10 simvolov ');
   Readln(punktn);
   Write('Dni poletov - ot 1 do 7 ');
   Readln(dni);
   end;
    for i:=1 to n do
   With Spis[i] do
   begin
      Write('Nomer reysa: ',nomr);
      Write('Punkt otpravlenia : ',punkto);
      Write('Punkt naznachenia : ',punktn);
      Write('Dni poletov : ',dni);
      writeln('____________________');
      writeln;
   end;
repeat
key:=0;
for i:=1 to n-1 do
if mas[i]>mas[i+1] then
begin
z:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=z;
end;
until key=0;
for i:=1 to n do
writeln('Nomer reysa',mas[i]:3);
first:=1; last:=n;
while first<=last do begin
adr:=(first+last)div 2;
if mas[i]>50 then
begin
writeln('Element nayden po adresu i=',i);
readln;
exit
end
else if 50>mas[i] then last:=adr-1
else first:=adr+1;
end;
writeln('Element ne nayden');
readkey;
End.

Uses crt;
 Type
  tabl=record
  nomr:integer;
  punkto:string[20];
  punktn:string[10];
  dni:1..7;
  end;
 
 Var Spis:array[1..100]of tabl;
 mas:array[1..100]of integer;
 N,i,key:byte;
 Isk_nom:string[5];
 z:integer;
 
Begin
Clrscr;
Write('Vvedti chislo zapisey N = ');
Readln(N);
Writeln('Vvedite spisok po polyam');
 For i:=1 to N do
  With Spis[i] do
   begin
   Write('Nomer reysa ');
   Readln(nomr);
   mas[i]:=nomr;
   Write('Punkt otpravlenia - 20 simvolov ');
   Readln(punkto);
   Write('Punkt naznachenia - 10 simvolov ');
   Readln(punktn);
   Write('Dni poletov - ot 1 do 7 ');
   Readln(dni);
   end;
    for i:=1 to n do
   With Spis[i] do
   begin
      Write('Nomer reysa: ',nomr);
      Write('Punkt otpravlenia : ',punkto);
      Write('Punkt naznachenia : ',punktn);
      Write('Dni poletov : ',dni);
      writeln('____________________');
      writeln;
   end;
repeat
key:=0;
for i:=1 to n-1 do
if mas[i]>mas[i+1] then
begin
z:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=z;
end;
until key=0;
for i:=1 to n do
writeln('Nomer reysa= ',mas[i]:3);
for i:=1 to n do
if mas[i]>50 then
begin
writeln('Element nayden po adresu i=',i);
readln; exit
end
else writeln('Element ne nayden');
readkey;
End.