Височината на втория и третия

Напишете програма, която позволява да се въведе в масив от 10 елемента височината в сантиметри на 10 ученика, и след това извежда височините на втория и третия ученик, ако те са подредени по височина.

Публикувано в 10a с етикети . Постоянна връзка.

4 коментара по Височината на втория и третия

  1. Svetli каза:
    program Project1;
    var
      i,j,swap,N:integer;
      a:array[1..10] of Integer;
    
    procedure Visochina(i,j,swap:integer);
    begin
      N:=10;
      Writeln('Vavedete visochinite na 10 choveka');
      for i:= 1 to N do begin
        Readln(a[i]);
      end;
    end;
    
    procedure Sortirane(i,j,swap:integer);
    begin
      N:=10;
      for i:= 1 to N do
          for j:= 1 to N-1 do begin
            if a[j] > a[j+1] then begin
              swap:=a[j];
              a[j]:=a[j+1];
              a[j+1]:=swap;
            end;
          end;
    
      Writeln('Visochinite na vtoriq i tretiq sa: ');
      Writeln(a[2],' ',a[3]);
    
    end;
    begin
      Visochina(i,j,swap);
      Writeln;
      Sortirane(i,j,swap);
      Readln;
    end.
    
    • Данаил каза:

      Като смисъл кодът е верен, но като структуриране – не. Прочети си пак уроците за параметри на функции и за видове променливи (глобални и локални). Ако не откриеш какво може да се подобри, обади ми се за да го обсъдим.

  2. Боряна каза:
    program Project1;
    var
      a: array[1..10] of integer;
      i, j, swap: integer;
    begin
      //въвеждане на данни в масив
      WriteLn('Za vseki ot desette uchenici vavedete visochinata v cm.');
      for i:=1 to 10 do begin
        Write('Uchenik nomer ', i, ': ');
        ReadLn(a[i]);
      end;
    
      //подреждане на данни в масива
      for i:=1 to 10 do
        for j:=1 to 10-i do begin
          if a[j]<a[j+1] then begin
            swap:=a[j];
            a[j]:=a[j+1];
            a[j+1]:=swap;
          end;
        end;
      // и сега просто за да накараме потребителя да се чувства специален:
      WriteLn('Natisnete Enter, za da podredite uchenicite po visochina.');
      ReadLn;
    
      //извеждане на данни от масива
      WriteLn;
      WriteLn('Uchenicite sa podredeni!');
      WriteLn('Vtoriat po visochina e visok ', a[2], 'cm, a tretia - ', a[3], 'cm.');
      ReadLn;
    end.
    

Вашият коментар