Дан массив целых чисел. Составить программу обработки двумерных массивов...Паскаль

Question

Nyo · Accepted Answer

(* Подсчёт среднего значения всего массива *) 
Sum := 0; 
for Row := 1 to Rows do 
 for Col := 1 to Cols do 
 Sum := Sum + Arr[Row, Col]; 
Simpl := Sum / Row / Col; 
 
(* Вывод превышающих среднее *) 
WriteLn('Превышающие среднее:'); 
for Row := 1 to Rows do 
 begin 
 OutElem := 0; 
 for Col := 1 to Cols do 
 if Arr[Row, Col] > Simpl then 
 begin 
 Write(#32, 'A[', Row, ',', Col, '] = ', Arr[Row, Col]); 
 Inc(OutElem); 
 end; 
 if OutElem > 0 then 
 WriteLn; 
 end;