1. 

   SandS New Member

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

    

   SandS, 1 янв 2010

   #1
2. 

   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.
   

    

   ILUSION, 1 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня