Задача 11.1. Скласти програму для заповнення елементiв масиву С[6,7] значеннями, що обчислюються за формулою C[i,j]=sin i + cos j. Вивести результат на екран у виглядi таблицi.

Program PR11;
Var C:array[1..6,1..7]of Real;
    i,j:Integer;
Begin {обчислення елементiв масиву}
For i:=1 to 6 do
For j:=1 to 7 do C[i,j]:=sin(i)+cos(j);
{вивiд масиву на  екран у виглядi таблицi}
 For i:=1 to 6 do
 Begin
 For j:=1 to 7 do
 Write (C[i,j]:8:2);
 WriteLn;
 End;
End.

Результати роботи програми:
1.38   0.43 -0.15  0.19 1.13  1.80   1.60
1.45   0.49 -0.08  0.26 1.19  1.87   1.66
0.68  -0.28 -0.85 -0.51 0.42  1.10   0.90
-0.22 -1.17 -1.75 -1.41 -0.47 0.20  -0.00
-0.42 -1.38 -1.95 -1.61 -0.68 0.00  -0.21
0.26  -0.70 -1.27 -0.93 0.00  0.68   0.47