составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов. пожалуйста)
Answers & Comments
Veter0k
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]<a[k+1] then d:=a[k]; write(d); end.
Answers & Comments
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]<a[k+1] then d:=a[k];
write(d);
end.