24.12.2009, 18:38
общий
это ответ
Здравствуйте, Benqq!
Решение задачи в приложении.
Приложение:
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
n,m,i,j:byte;
begin
clrscr;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if i<j then a[i,j]:=sin(i+j)
else if i=j then a[i,j]:=i
else a[i,j]:=cos((i+j)/(2*i+3*j));
write(a[i,j]:7:2);
end;
writeln;
end;
readln
end.