сделать программу в...

Тема в разделе "Информатика", создана пользователем qwertz, 28 янв 2010.

  1. qwertz

    qwertz New Member

    сделать программу в паскале ввести 10 чисел и из них найти минимум и максимум
     
    qwertz, 28 янв 2010
    #1
  2. TOOMY

    TOOMY New Member

    var a:array[0..9] of integer;
          i,min,max:integer;
    begin
     for i:=0 to 9 do readln(a);
     min:=a[0];
      for i:=0 to 9 do if(min>a) then min:=a;
     max:=a[0];
    for i:=0 to 9 do if(max<a) then max:=a;
    writeln(max,' ', min);
    readln;
    end.
     
    TOOMY, 28 янв 2010
    #2

Поделиться этой страницей

Наша группа