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

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]write(d);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.