Дано два числа n и k. написать програму которая выводит n раз число k

var n, k, i: integer; begin  writeln('введи число, которое нужно выводить'); read(k);   writeln('укажи, сколько раз вывести число'); read(n); for i: =1 to n do write(k,' '); end.

Const n=8; var x : array[1..n] of real;     i : integer; min : real; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   x[i]: =20*random-10;   write(x[i]: 6: 2,' ');         end;   writeln; min: =x[1]; for i: =2 to n do   if x[i] < min then min: =x[i]; writeln('min=',min: 6: 2); for i: =1 to n do   if x[i]< 0 then x[i]: =min; writeln('измененный массив: '); for i: =1 to n do write(x[i]: 6: 2,' '); end. пример: исходный массив:   -7.84   -9.97   7.00   -8.26   -7.71   -3.88   7.59   -2.32  min= -9.97 измененный массив:   -9.97   -9.97   7.00   -9.97   -9.97   -9.97   7.59   -9.97 

Program a1; var a,b: array [1..10] of integer;   n,i,k,sum,c: integer; begin randomize; for i: =1 to 10 do      begin                a[i]: =random(100);                   write(a[i]: 3);         end;       readln (n);     for i: =1 to 10 do      begin        k: =a[i];         while k> 0 do                          begin                            sum: =sum+(k mod 10);                           k: =k div 10;                       end;             f (n=sum) then                begin                 inc(c);                         b[c]: =a[i];                     end;     end; for i: =1 to c do    write(b[i]: 2);   end.