Наглядности - характеристика научных знаний, связанная с возможностью представления изучаемых объектов и явлений в образной, чувственно воспринимаемой форме. стремление к построению "картин" соответствующей предметной области исследования , к полному совпадению научных описаний действительности и самой действительности -было связано с уверенностью древних мыслителей в возможности прямого"зеркального" отображения содержания воспринимаемых людьми явлений в их сознании.
Const n = 9; var a:array[1..n,1..n] of integer; i,j,k,max: integer;
begin Randomize; Writeln('Исходная матрица'); max:=-100; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if max<a[i,j] then max:=a[i,j] end; Writeln end;
for i:=2 to n-1 do { не просматривать первую и последнюю строки } for j:=1 to n do if a[i,j]=max then a[i,j]:=0;
Writeln('Результирующая матрица'); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:4); Writeln end; end.
