В массиве из 10 целых чисел найти наименьшие элементы и поменять местами с последним элементом

Категория: Delphi/Pascal
2011-08-20 14:04:00
code: #pascal
  1. Program Primer2;
  2.  Uses Crt;
  3.  Const k=10;
  4.  Type TMass=Array[1..k] of Integer;
  5.  var m:TMass;
  6.  Procedure Vvod;
  7.  var i:Integer;
  8.  begin
  9.    For i:=1 to k do
  10.      begin
  11.        Write('m[',i,']=');
  12.        Readln(m[i]);
  13.      end;
  14.  end;
  15.  Function min:Integer;
  16.  var d,i:Integer;
  17.  begin
  18.    d:=m[1];
  19.    For i:=2 to k do
  20.     if m[i]<d then d:=m[i];
  21.    min:=d;
  22.  end;
  23.  Procedure Zamena;
  24.  var t,i:Integer;
  25.  begin
  26.    t:=min;
  27.    If t<>m[10] then
  28.     begin
  29.       For i:=1 to k do
  30.         if t=m[i] then m[i]:=m[10];
  31.       m[10]:=t;
  32.     end;
  33.  end;
  34.  Procedure Vivod;
  35.  var i:Integer;
  36.  begin
  37.    For i:=1 to k do Write('m[',i,']=',m[i]);
  38.  end;
  39.  begin
  40.    ClrScr;
  41.    Vvod;
  42.    Zamena;
  43.    Vivod;
  44.    Readkey;
  45.  end.
Поделиться:

Похожие статьи:

теги: pascal, массив, одномерный массив, студенты, консольное приложение