Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции...

Question

Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от -20 до -8. Вывести его в одну строку. Найти в массиве на минимальный элемент , на какой позиции он стоит в массиве.

Answer 1

Var 
min, i,position:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do begin
a [i]:=Random (-20,-8);
end;
min:=a[1];
position:=1;
for i:=2 to 14 do begin
if (a[i] < min) then
begin
min:=a[i];
position:=i;
end;
end;
write ('Массив ');
for i:=1 to 14 do begin
write (a [i]);
write (' ');
end;
writeln(' ');
writeln ('Минимальный элемент находится на позиции: ', position);
writeln ('Минимальный элемент равен: ', min);
end. 

Comments

var
min, i,position:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do begin
a [i]:=Random (-20,-8);
end;
min:=a[1];
position:=1;
for i:=2 to 14 do begin
if (a[i] < min) then
begin
min:=a[i];
position:=i;
end;
end;
write ('Массив ');
for i:=1 to 14 do begin
write (a [i]);
write (' ');
end;
writeln(' ');
writeln ('Минимальный элемент находится на позиции: ', position);
writeln ('Минимальный элемент равен: ', min);
end.