const
n = 5;
var
Z: array[1..n, 1..n] of integer;
i, j: integer;
f: boolean;
begin
for i := 1 to n do
for j := 1 to n do
begin
write('Element [', i, ', ', j, ']: ');
readln(Z[i, j]);
end;
f := false;
for i := 1 to n do
begin
for j := 1 to n do
begin
if Z[i, j] < 0 then
begin
f := true;
break;
end;
end;
if f = true then break;
end;
if f = true then
for i := 1 to n do
for j := 1 to n do
Z[i, j] := Z[i, j] * Z[i, j];
writeln;
writeln('Result:');
for i := 1 to n do
begin
for j := 1 to n do
write(Z[i, j], ' ');
writeln;
end;
readln;
end.
|
