Написать программу Вывод минимального элемента массива целых чисел

2

Ответы и объяснения

2013-06-26T13:45:51+04:00

const

  n=15;

var

  a:array [1..n] of integer;

  i,min:integer;

begin

  for i:=1 to n do

   begin

    write ('A[',i,'] = ');readln(a[i]);

   end;

  min:=a[1];

  for i:=2 to n do

   if a[i]<min then min:=a[i];

  writeln ('Min: ',min);

  readln;

end.

  • Sky09
  • профессор
2013-06-26T14:17:57+04:00

uses crt;

var

  a:array[1..100] of integer;
  i,min:integer;
begin

  randomize;
  write('Введи количество элементов массива: '); read(i);
  min:=100;

  clrscr;
  writeln('Массив: ');
  for i:=1 to i do
  begin
    a[i]:=random(10)-9;
    write(a[i]:4);
    if a[i]<min then min:=a[i];
  end;
  writeln;
  write('Минимальный элемент массива: ',min);
end.