запросить N чисел,...

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

  1. bulls

    bulls New Member

    запросить N чисел, найти наибольшее из них
     
    bulls, 28 янв 2010
    #1
  2. diesel27

    diesel27 New Member

    var n,max,a:integer;
     
    begin
    readln(a);
    max:=a;
    for i:=1 to n do
    begin
    readln(a);
    if max < a then max:=a;
    end;
    writeln(max);
    end.
     
    как то так..
     
    diesel27, 28 янв 2010
    #2

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

Наша группа