Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента...

Question

Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран общее количество забитых и общее количествопропущенных мячей.

Answer 1

Var
  z,i,p:integer;
  m:array[1..21]of integer;
begin
writeln('Массив:');
for i:=1 to 21 do
  begin
  m[i]:=random(3);
  if i mod 3=1 then m[i]:=(i div 3)+1;
  write(m[i],' ');
  if i mod 3=2  then z:=z+m[i];
  if i mod 3=0  then p:=p+m[i];
  end;
writeln;
writeln('Всего забито: ',z);
writeln('Всего пропущено: ',p);
end.