Question

Заполните массив 10 на 10 значения выражения M[a,b]=sin(a)+b

Answer 1

var
a,b:integer;
m:array [1..10,1..10] of real;
begin
for a:=1 to 10 do begin
for b:=1 to 10 do begin 
m[a,b]:=sin(a)+b; 
write('m[a,b]:7:2);end;
end;
writeln;
end.