Максимальный элемент в массиве и его индекс на Pascal

Максимальный элемент в массиве и его индекс...

const 
  Sz = 100;
var 
  a: array [1..Sz] of real;
  N: integer;   
  min: real;
  minind: integer;
begin
  N := 20;
  for var i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива: ');
  for var i:=1 to N do
    write(a[i],' ');
  writeln;  
 
  min := a[1];
  minind := 1;
  for var i:=2 to N do
    if a[i]<min then 
    begin
      min := a[i];
      minind := i;
    end;
 
  writeln('Минимальный элемент: ',min);
  writeln('Индекс минимального элемента: ',minind);
end.



Просмотров: 1550
10.02.2015, 10:42 -

Категория: Статьи » Программирование » Pascal