составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов.

CategoriesАлгебраПредмет

пожалуйста)

Ответы:

var a:array [1..7] of byte, k,c,d:integer,

begin

for k:=1 to 6 do begin

read(c), a[k]:=c, end,

a[7]:=2*a[1],

for k:=1 to 6 do 

if a[k]&lt,a[k+1] then d:=a[k],

write(d),

end.