язык Паскаль 
вывести на экран вот это:
* * * * * * *
* * * * * * 
* * * * *
* * * *
* * *
* *
*
с помощью двумерного массива 7х7
спасайте ребят головка болит уже(плак..плак и хнык..хнык)

ты просто крут

const n=7;var a:array[1..n,1..n] of char;i,j:integer;beginfor i:=1 to n do for j:=1 to n do  if j<=n-i+1 then a[i,j]:='*' else a[i,j]:=' ';for i:=1 to n do begin for j:=1 to n do write(a[i,j]:2); writeln; end;end.Результат: * * * * * * * * * * * * *   * * * * *     * * * *       * * *         * *           *            

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=MatrGen(7,7,(i,j)->i<7-j?'*':' ');  a.Println(2)end.Результат * * * * * * * * * * * * *   * * * * *     * * * *       * * *         * *           *