Решить 1е,3е,4е,6е,7е по информатике.

var x,n: integer;

begin

  read(x,n);

  x: =x*n;

  writeln(x);

end.

трасирвка кажется f7

var a: array[1..100] of integer;

i,s: integer;

begin

  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;

      if a[i]> =0 then s: = s+a[i];   end;

  for i: = 1 to n do begin

      if a[i]< 0 then a[i]: =s;

      write(a[i]: 4);       if i mod 10=0 then writeln;

  end;

end.

зеркало

коромысло

дупло

дуло

крыло

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.