Задайте массив из 10 элементов с помощью датчика случайных чисел. выведите на экран исходный массив и и номера тех элементов, которые расположены между

29 Январь 2012



задайте массив из 10 элементов с помощью датчика случайных чисел. выведите на экран исходный массив и и номера тех элементов,которые расположены между наибольшим и наименьшим элементами

  • лагает(( но отметь это как ответ)
  • Уже отвечал, но все же такое решение актуальнее: 

    var 
    ar:array[1..10] of integer;
    max,min,i,kmax,kmin:integer;
    begin
    randomize;

    max:=0;
    min:=1000;

    for i:=1 to 10 do begin  
    ar[i]:=random(1000)+1;  
    if (ar[i] > max) then 
      begin max:=ar[i]; kmax:=i; end 
        else if (ar[i] < min) then begin min:=ar[i]; kmin:=i; 
    end;  
    write(ar[i],’ ‘);
    end;

    writeln();

    if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,’ ‘) 
      else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,’ ‘);
    end.

    P.S. В решении выше есть далеко ни одна ошибка ;)







Информатика

Комментарии закрыты.