Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 39.

Найти максимальный (минимальный) элемента массива, а также его порядковый номер.

program prim3;
  uses crt;
  var i,n,r,max,min,imax,imin:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write('число элементов n= ');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
      write(a[i],' ');
    end;
{За начальный максимум (минимум) берем первый элемент массива.}
  min:=a[1]; max:=a[1];
  for i:=1 to n do
    begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
      if a[i]<=min then
        begin
          min:=a[i]; imin:=i;
        end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i;
        end;
    end;
{Печатаем минимальный элемент и его индекс.}
  writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер' ,imax);
  readkey;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru