Заполните массив 10 на 10 значения выражения M[a,b]=sin(a)+b
Ответы на вопрос
Ответил uropb123
0
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.
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.
Новые вопросы