a[0] это начало, запиши его в яйчейку начиная слева и так далий - a[1] во вторую, a[2] в третию.
2. число этого массивы (ы) - они краб чтоли аа PROGRAM TuKpa6;vari,min:integer;A:array[1..15] of real;BEGIN min:=1; writeln('BBeguTe дробные числа 15 штук'); for i:=1 to 15 do begin readln(a[i]); end; for i:=1 to 15 do begin writeln('a[',i,']:=',a[i]); if a[min]>=a[i] then begin min:=i; end; end; writeln('=min[',min,']:=',a[min]);END.
3. PROGRAM TuKpa6;const n=15;vari:integer;A:array[1..15] of integer;BEGIN randomize; for i:=1 to 15 do begin a[i]:=random(-31,14); writeln('a[',i,']:=',a[i]); end;END.
Answers & Comments
a[0] это начало, запиши его в яйчейку начиная слева и так далий - a[1] во вторую, a[2] в третию.
2. число этого массивы (ы) - они краб чтоли аа
PROGRAM TuKpa6;vari,min:integer;A:array[1..15] of real;BEGIN min:=1; writeln('BBeguTe дробные числа 15 штук'); for i:=1 to 15 do begin readln(a[i]); end; for i:=1 to 15 do begin writeln('a[',i,']:=',a[i]); if a[min]>=a[i] then begin min:=i; end; end; writeln('=min[',min,']:=',a[min]);END.
3.
PROGRAM TuKpa6;const n=15;vari:integer;A:array[1..15] of integer;BEGIN randomize; for i:=1 to 15 do begin a[i]:=random(-31,14); writeln('a[',i,']:=',a[i]); end;END.