Дан целочисленный массив a. найти в нем два наименьших элемента.

Const
  n=15;
var
  a:array[1..n] of integer;
  i,t,min1,min2:integer;
begin
  Write('Исходный массив: ');
  min1:=1000; min2:=min1;
  for i:=1 to n do
  begin
    t:=Random(50); a[i]:=t;
    if min1>t then
    begin min2:=min1; min1:=t end
    else if min2>t then min2:=t;
    Write(t:3)
  end;
  Writeln(#13#10,'Найденные минимумы: ',min1:3,min2:3);
end.

Тестовое решение:
Исходный массив:  34  8 44 37 37  2 40 46  8 35 44 32  5 14 40
Найденные минимумы:   2  5

Const
n=10;
var
a:array[1..n]of integer;
i,min,j,min2:integer;
begin
   for i:=1 to n do
       begin
            a[i]:=random(100);
             write(a[i]:4);
       end;
min:=a[1];j:=1;min2:=a[1];
for i:=1 to n do
    if a[i]<min then
          begin
              min:=a[i];
              j:=i;
         end;
for i:=1 to n do
    if (a[i]>=min)and(i<>j)and(a[i]<min2)then
      min2:=a[i];
writeln;
writeln(min,' ',min2);
end.

begin

writeln('1: ',(sqrt(10)+1)/(6.25-1.8*1.8));

writeln('2: ',sin(5)/cos(5)*10*sqrt(19));

writeln('3: ',100*sin(4));

writeln('4: ',sin(cos(1))/0.25);

writeln('5: ',exp(sin(3))*ln(2));

writeln('6: ',sqrt(sqrt(5)+sqrt(6)));

writeln('7: ',(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));

writeln('8: ',(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));

end.

Результат:

1: 1.38281649839481

2: -147.353232893516

3: -75.6802495307928

4: 2.0575810340942

5: 0.798202533367663

6: 2.16461491269994

7: 3.04977540329462

8: 0.0980510445730408

Подробнее - на -

Объяснение:

Я так понимаю, что а2 -это а умножить на 2, а b2 - это b умножить на 2

 

a) a*2+b*2;

b) a*b+b*c;
c) a+b -245*(a+b)*2*c;

4. Program Avgarif;

     Uses crt;

      var a,b,c,d,res:real;

      begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

             write('Введите 3 число: ');

            readln(c);

            write('Введите 4 число: ');

            readln(d);

          res:=(a+b+c+d)/4;

          writeln('Среднее арифметическое:',res);

          readkey;

 

      end.   

 

 

5. Program Kvadrat;

     Uses crt;

     var a,p: real;

     begin

           clrscr; 

           write('Введите сторону квадрата а: ');

            readln(a);  

           p:=4*a;

            writeln('Периметр квадрата: ',p);       

            readkey;

    end.   

 

6.Program Prjamoug; 

     Uses crt;

     var a,b,p,s: real;

     begin

 

          clrscr;

           write('Введите 1 сторону прямоуголника: ');

            readln(a);

            write('Введите 2  сторону прямоуголника : ');

            readln(b);

 

           s:=a*b;

           p:=2*a+2*b;

 

          writeln('Периметр прямоугольника: ',p); 

 

          writeln('Площадь  прямоугольника : ',s);         

       readkey;

    end.   

 

 

 7. Program Arifm;

       Uses crt;

       var a,b,r,s,p,d: real;  

begin

           clrscr; 

           write('Введите 1 число: ');

            readln(a);

            write('Введите 2 число: ');

            readln(b);       

           p:=a*b;

           s:=a+b;

 

           d:=a/b;

           r:=a-b;

          writeln('Произведение a и b: ',p); 

          writeln('Сумма  a и b  : ',s);

         writeln('Частное a и b: ',d); 

          writeln('Разность  a и b  : ',r);     

    readkey;

   end.