01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN6

 PROGRAM masiv2;
  TYPE mas=array[1..100] of real;
  var a:mas;
      min:real;
      i,k:integer;
  begin for i:=1 to 100 do
       a[i]:=random(90);
       a[1]:=43.6;
       min:=100;
        for i:=1 to 100 do begin
         if not(i mod 2=0) then begin
                               if a[i]<=min then begin
                                    min:=a[i]; k:=i
                                                  end;
                                writeln(i, '   ',a[i]:5:2);
                                end;
       if i mod 30=0 then
       begin
        writeln(k,'   ','min=',min:5:2);
       readln;
        end

                          end;
       readln;
 end.