Рабочие и общий процент брака

[Alexar Makken]

Задание: Имеются сведения о 7 рабочих бригады в виде: за каждый из пяти дней количество изготовленных им деталей и количество бракованных из них. Для каждого рабочего определить общий процент брака за 5 дней.
Вот наработки:

uses crt;
const
     n=2;
     m=3;
var
     i,j,k,g,imin,jmin,min: integer;
     a,b,c: array[1..n,1..m] of integer;
     proc: integer;
begin
     clrscr;
     //Ввод с клавиатуры
     for i:=1 to n do
     for j:=1 to m do
     begin
          write(i,'- рабочий ');
          writeln(j,'- день ');
          write('количество изготовленных деталей ');
          readln(a[i,j]);
          write('количество забракованных деталей ');
          readln(b[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to m do
     c[i,j]:=b[i,j] div a[i,j];
 
     proc:=0;
     for i:=1 to n do
     for j:=1 to m do
     begin
     proc:=proc + c[i,j];
     proc:=proc div 5;
     write('общий процент брака для ',i,'го рабочего: ',proc);
     end;
 
 
end.

[Jaguar83]

Честно говоря, толком не смотрел код. Тебе стоит подумать, как лучше структурировать имеющиеся данные. Почему у тебя n = 2, когда рабочих 7, и m =3, когда дней 5??? И далее непонятно, что ты делаешь. Могу предложить следующее решение.

type
  TWorker = record
    all:  Integer;
    brak: Integer;
  end;

const
  n = 7;
  m = 5;

var i,j: Integer;
    c: array [1..n,1..m] of TWorker;
    a: array [1..n] of Integer;
    sum_all, sum_brak: Integer;

begin
  for i:=1 to n do
  begin
     sum_all:=0; sum_brak:=0;
     for j:=1 to m do
     begin
          Write(i,'- рабочий ');
          Writeln(j,'- день ');
          Write('количество изготовленных деталей ');
          Readln(c[i,j].all);
          Write('количество забракованных деталей ');
          Readln(c[i,j].brak);
          sum_all  := sum_all + c[i,j].all;
          sum_brak := sum_brak + c[i,j].brak;
     end;
     a[i] := sum_brak*100 div sum_all;
  end;
  Writeln;
  for i:=1 to n do
    Writeln('общий процент брака для ',i,'го рабочего: ',a[i],'%');
  Readln;
end.

Информацию о общем количестве деталей и бракованных я храню в записи TWorker. В цикле вычисляю процент брака и сохраняю его для каждого рабочего в массив a .