1. 

   SIFON4IK New Member

   Составьте программу для нахождения минимального элемента массива Х, состоящего из 6элементов.
   пожалуйста)

    

   SIFON4IK, 3 фев 2010

   #1
2. 

   ондорг New Member

   Var a:array [1..7] of byte; k,c,d:integer;
   begin
   for k:=1 to 6 do begin
   read(c); a[k]:=c; end;
   a[7]:=2*a[1];
   for k:=1 to 6 do 
   if a[k]<a[k+1] then d:=a[k];
   write(d);
   end.

    

   ондорг, 3 фев 2010

   #2

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

Пароль:

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

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