// PascalABC.NET 3.0, сборка 1088 const nn=30; mm=30; var d:array[1..nn,1..mm] of integer; m,n,i,j,s,k:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(n,m); Randomize; Writeln('*** Исходный массив ***'); s:=0; k:=0; for i:=1 to n do begin for j:=1 to m do begin d[i,j]:=Random(101)-50; Write(d[i,j]:4); if (d[i,j]>0) and (d[i,j] mod 3 = 0) then begin s:=s+d[i,j]; Inc(k) end end; Writeln end; Writeln('Искомое среднее равно ',s/n:0:5) end.
в java это int (а также если не ошибаюсь, в с++)