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