Выведи на экран большее из двух данных чисел. Запиши программу на языке Паскаль, выведи ответ на экран, если 1, 78298 и 2, 1644. На экране vvedi dva chisla 1, 78298 2, 1644

Объяснение:

var a1, a2 : real

BEGIN

writeln ('vvedi dva chisla');

readln (a1, a2);

if a1 > a2 then writeln (a1) else writeln (a2);

END.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Randomize;
Min:=1;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(A[i],' ');
    if A[Min]>A[i] then Min:=i;
    End;
WriteLn;
WriteLn(Min)
End.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,j,Min,B:integer;
Begin
Randomize;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(A[i],' ');
    End;
WriteLn;
WriteLn;
For i:= 1 to N do
    Begin
    Min:=i;
    For j:=i+1 to N do
        if A[Min]>A[j] then Min:=j;
    B:=A[Min];
    A[Min]:=A[i];
    A[i]:=B;
    Write(A[i],' ')
    End;
End.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,j,Max,B:integer;
Begin
Randomize;
For i:= 1 to N do
    Begin
    A[i]:=random(2*N+1)-N;
    Write(A[i],' ');
    End;
WriteLn;
WriteLn;
For i:= 1 to N do
    Begin
    Max:=i;
    For j:=i+1 to N do
        if A[Max]<A[j] then Max:=j;
    B:=A[Max];
    A[Max]:=A[i];
    A[i]:=B;
    Write(A[i],' ')
    End;
End.

Function V(h,r:real):real;
Begin
result:=1/3*Pi*r*r*h // ABC, ABC.net
// V:=1/3*Pi*r*r*h // Turbo, Free
End;

Function SPP(h,r:real):real;
Begin
result:=Pi*r*(R+Sqrt(r*r+h*h));
End;

Var
   h,r,V0,S,SumS,SumV:real;

Begin
Write('h1 = ');ReadLn(h);
Write('r1 = ');ReadLn(r);
V0:=V(h,r);
SumV:=V0;

S:=SPP(h,r);
SumS:=S;
WriteLn('V1 = ',V0);
WriteLn('S1 = ',S);
WriteLn;

Write('h2 = ');ReadLn(h);
Write('r2 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V2 = ',V0);
WriteLn('S2 = ',S);
WriteLn;

Write('h3 = ');ReadLn(h);
Write('r3 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V3 = ',V0);
WriteLn('S3 = ',S);
WriteLn;

WriteLn('Sum V = ',SumV);
WriteLn('Sum S = ',SumS);
End.