Помогите перевести с Паскаль в Си
Помогите пожалуйста перевксти с паскаля в Си работу , заранее большое спасибо
Дана матрица А [1:5; 1:5]. Если произведение элементов первой строки матрицы меньше суммы элементов последнего столбца, то все элементы матрицы пересчитать по правилу:
А(i,j)= A(i,j)•(i+j). Иначе удалить третью строку и третий столбец.
Код:
uses crt;
const n=5;
var A:array[1..n,1..n] of integer;
i,j,p,s:integer;
begin
clrscr;
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=random(10)-5;
write(A[i,j]:3);
end;
writeln;
end;
p:=1;
for j:=1 to n do
p:=p*A[1,j];
writeln('proizvedenie 1 stroki p=',p);
for i:=1 to n do
s:=s+A[i,n];
writeln('summa poslednego stolbca s=',s);
writeln;
writeln('Result:');
if p<s then
begin
writeln('p<s');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=A[i,j]*(i+j);
write(A[i,j]:4);
end;
writeln;
writeln;
end;
end else
begin
writeln('p>=s');
for i:=3 to n-1 do
for j:=1 to n do
A[i,j]:=A[i+1,j];
for j:=3 to n-1 do
for i:=1 to n-1 do
A[i,j]:=A[i,j+1];
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
write(A[i,j]:3);
writeln;
end;
end;
readln;
end.
|
