4 алгоритма, реализованных в алгоритмическом языке Паскаль - Pascal - Ответ 382482

uses crt;
var
 a:array[1..10]of integer;
 i, j, max, k:integer;
begin clrscr;
begin randomize;
   for i:=1 to 10 do
    begin
       a[i]:=random(100);
       write('a[',i,']=', a[i],'  ');
    end;
end;
max:=a[1];
k:=a[2];
for i:=1 to 10 do
if a[i]>max then 
 begin 
    max:=a[i];
    j:=i;
 end;
writeln;
writeln('position of max element=',j);
writeln('max=', max);
for i:=1 to 10 do  
 begin
    a[j]:=k;
    if i=2 then
    a[i]:=max else a[i]:=a[i];
 end;
writeln;
for i:=1 to 10 do
write('a[',i,']=', a[i], ' ');
readkey;
end.

uses crt;
var
 Q: real;
 x, b, s:integer;
begin clrscr;
   write('x=');
   read(x);
   write('b=');
   read(b);
   write('s=');
   read(s);
   if (s=0) or (x=0) then
    begin
       writeln('delenie na 0');
    end
   else 
    begin
       Q:=(b*sqr(x)-s)/(exp(s*x)-1);
       writeln;
       writeln('Q=(',b,'*sqr(',x,')-',s,')/(exp(',s,'*',x,')-1)=',Q);
    end;
   readkey;
end.