Помогите решить задачку по двумерным масивам...(((

[tyt1991]

В матрице ZR(20,5) содержится информация о заработной плате 20 работников 5 цехов. Записать в дополнительную строку среднюю заработную плату по цеху.Произвести перерасчет у рабочих, зарплата которых меньше средней, добавив к их заработной плате дотацию в виде 20% надбавки, округляя до целого.Написать программу для решения данных задач, обеспечивая вывод исходных и полученных матриц в корректном виде. Создание матриц призводить с помощью генератора случайных чисел Random.

[alex_fcsm]

uses crt;
const n=20;
      m=5;
      
var a:array[1..n,1..m] of integer;
    i,j:integer;
    sum:real;
    
begin
clrscr;
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
      a[i,j]:=random(1000)+500;
      write(a[i,j]:8);
    end;
    writeln;
 end;
 for j:=1 to m do
  begin
   sum:=0;
    for i:=1 to n do
      sum:=sum+a[i,j];
   sum:=sum/n;
    for i:=1 to n do
     if a[i,j]<sum then a[i,j]:=round(1.2*a[i,j]);
   write(sum:8:2);
  end;
  writeln;
  writeln('================================');
  writeln('Keypress');
  readkey;
  clrscr;
  writeln;
  for i:=1 to n do
   begin
   for j:=1 to m do
      write(a[i,j]:8);
    writeln;
   end;
end.

[tyt1991]

СПАСИБО БОЛЬШОЕ!!!!!!)

[tyt1991]

А можно обойтись без writeln('Keypress');
readkey; а то я не понимаю эту строчку!!(((

[Stilet]

А можно

Можно, просто эти команды просят пользователя нажать клавишу энтер для продолжения.

[tyt1991]

Спасибо!)))) огромное!)