Помогите пожалуйста. Вот...

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

  1. SandS

    SandS New Member

    Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этогомассива.
     
  2. ILUSION

    ILUSION New Member

    var i,min:integer;
    a:array [1..10] of integer;
    Begin
        for i:= 1 to 10 do Begin
            read(a);
            if (i=1) or (min>a)then
                min:=a;
        end;
        writeln(min);
    End.
     

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

Наша группа