Версия для печати темы

Автор: Называй меня Настенька 18.12.2010 0:10

В процедуре заполните квадратную матрицу третьего порядка случайными числами. В функции проверить, содержит ли матрица невозрастающие диагонали. Определить их количество и вывести на экран.

Program r6v21;
Type mas=array[1..3,1..3] of integer;
var a:mas;
i,j,k,z:byte;

Procedure matrix(Var a:mas; i,j:byte);
Begin
randomize;
for i:=1 to 3 do
begin
for j:=1 to 3 do
Begin
a[i,j]:=random(99);
write (a[i,j],' ');
end;
writeln;
end;
end;

Function n(var a:mas; k:byte):integer;
Begin
k:=0;
if a[1,1]>=a[2,2] then inc(k) else
if a[2,2]>=a[3,3] then inc(k);
if a[1,2]>=a[2,3] then inc(k);
if a[2,1]>=a[3,2] then inc(k);
n:=k;
end;

begin
matrix(a,j,i);
z:=n(a,k);
If z<>0 then writeln('soderzhit ',z,' nevozrastaushuju(ie) diaganal(i)')
else writeln('nesoderzhit');
readln;
end.



а нужно В процедуре заполните квадратную матрицу третьего порядка с клавиатуры, а в функции проверьте, все ли диагональные элементы равны нулю. Если не все, то в основной программе вычислить сумму диагональных элементов и прибавить это значение к любому недиагональному элементу, а диагональные - обнулить.


Если будет не интересно писать
Подскажите хотя бы что да как

Автор: Lapp 18.12.2010 5:58

Называй меня Настенька, не нужно дублировать темы

И тем БОЛЕЕ не нужно приносить чужие программы на "исправление".
Закрыто.