type
tarray = array [1..50,1..50] of longint;
var
a : tarray;
n,m,i,j : longint;
begin
readln(n,m);
for i: =1 to n do
for j: =1 to m do read(a[i,j]);
for i: =1 to n do
for j: =1 to m do
if a[i,j]< 0 then a[i,j]: =a[i,j]*a[i,j];
for i: =1 to n do
begin
for j: =1 to m do write(a[i,j],' ');
writeln;
end;
end.
вместо знака ? поставь максимальные значения n и m.
Поделитесь своими знаниями, ответьте на вопрос:
Var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end.ответ: var n, s: integer; begin n : = 1; s : = 0; while n < = 100 do begin s : = s + 30; n : = n * 2 end; write(s)end.ответ: var s, n: integer; begin s : = 47; n : = 1; while s > 0 do begin s : = s - 9; n : = n + 4 end; writeln(n)end.ответ:
int n=convert.toint32(console.;
int [,] a=new int[n,n];
random random = new random();
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
{
a[i, j] = random.next(-10,10);
}
}
console.writeline("ваша матрица");
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
console.write("{0}{1}", a[i, j], "\t");
console.writeline();
}
int min = a[0, 0];
for (int i = 0; i < n; i++)
for (int j = 0; j < n; j++)
if (min > a[i, j]) { min = a[i, j]; }
for (int i = 0; i < n; i++)
for (int j = 0; j < n; j++)
if (min == a[i, j]) { a[i, j] = 0; }
console.writeline("минимальный элемент");
console.writeline(min);
console.writeline("исходная");
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
console.write("{0}{1}", a[i,j], "\t");
console.writeline();
}
console.readline();