// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,imin,jmax,jmin:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imin:=1; jmin:=1; imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j] mod 2 = 0 then begin if a[i,j]<a[imin,jmin] then begin imin:=i; jmin:=j end else if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if (i=imin) and (j=jmin) or (i=imax) and (j=jmax) then a[i,j]:=2*a[i,j] else a[i,j]:=3*a[i,j]; Write(a[i,j]:4) end; Writeln end end.
{
int[,] arr = new int[3, 3];
Random c = new Random(DateTime.Now.Millisecond);
for (int i = 0; i < 3; i++)
for (int j = 0; j < 3; j++)
arr[i, j] = c.Next(1, 9); //заполнение матрицы
//тебе это не надо, т.к. она дана
//заданный интервал
int a = 3;
int b = 3;
int sum = 0;
int proizvedenie = 1;
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
{
sum += arr[i, j];
proizvedenie *= arr[i, j];
}
}
Console.WriteLine("Матрица:");
Console.WriteLine("{0} {1} {2}", arr[0, 0], arr[0, 1], arr[0, 2]); Console.WriteLine("{0} {1} {2}", arr[1, 0], arr[1, 1], arr[1, 2]); Console.WriteLine("{0} {1} {2}", arr[2, 0], arr[2, 1], arr[2, 2]); Console.WriteLine("Сумма = {0}", sum); Console.WriteLine("Произведение = {0}", proizvedenie); Console.ReadLine();
}
}