Question

такое же,только наименьшее.Молю господом богом,сделайте кто-нибудь!!!!!!

Answer 1

Ответ:

program n_4;

var

 i,imin: integer;

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

begin

 randomize;

 for i := 1 to 10 do

 begin

   a[i]:= random(100);

   writeln ('a[', i, ']=', a[i])

 end;

 imin := 1;

 for i := 2 to 10 do

   if a[i] < a[imin] then

   imin:= i;

 writeln ('Наименьший элемент массива ', a[imin])

end.