Дан массив. определить...

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

  1. alound15

    alound15 New Member

    Дан массив. определить является ли номер минимального элемента четным
     
    alound15, 1 фев 2010
    #1
  2. DAN92-06

    DAN92-06 New Member

    var a:array [1..10] of integer;
    i,k:integer;
    BEGIN
      read(a);
     
      k:=1;
      for i := 1 to 10 do
      begin
         if a[k]>a then k:=i;
      end;
      if k mod 2 = 0 then writeln(k," - chetnoe")
      else writeln(k," - ne chetnoe");
    END.
     
    DAN92-06, 1 фев 2010
    #2

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

Наша группа