Question

Дано натуральное число N и массив натуральных чисел А, заданных случайным образом из диапазона от 30 до 60. Найти минимальный элемент и его номер. Решить задачу для N=10. на Паскале.

Answer 1

Не понял, зачем нужен N. Пишу без него, если что исправьте.

Program qwe;

const n=10;

Var a: array [1..n] of integer; i,min,nom:integer;

Begin

 

For i:=1 to n do

 a[i]:=30+Random(30);

 

Min:=100;

For i:=1 to n do

 if a[i]<min then begin

                              min:=a[i];

                              nom:=i;

                              end;

Writeln('число ',min,' номер его ',nom);

end.

 

end.

Answer 2

const

  n=10;

var

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

  i,min,number:integer;

begin

  randomize;

  a[1]:=random(31)+30;

  write (a[1]:3);

  min:=a[1];

  number:=1;

  for i:=2 to n do

   begin

    a[i]:=random(31)+30;

    write (a[i]:3);

    if a[i]<min then

     begin

      min:=a[i];

      number:=i;

     end;

   end;

  writeln;

  writeln ('Min element - ',min,' s nomerom - ',number);

  readln;

end.