Pascal.abc 1. в два массива с клавиатуры заполнить числа, отображающие количество забитых и пропущенных голов за каждый матч футбольной команды (всего n матчей). найти разницу забитых и пропущенных голов. найти сколько игр команда пропустила больше 1 мяча. 2. в массив с клавиатуры заполнить числа, отображающие температуру каждого дня (всего n дней). найти среднюю температуру за n дней. найти сколько дней температура была меньше 0.

//#1

var

  a, b: array of integer;

  n: integer;

procedure parse(var a, b: array of integer; n: integer);

begin

  var sum_p: integer : = 0;

  var sum_m: integer : = 0;

  var data: integer : = 0;

  setlength(a, n); setlength(b, n);

  var i: integer;

  for i : = low(a) to high(a) do  

  begin

    readln(a[i]); readln(b[i]);

    sum_p += 3a[i]; //kov vo zabitix myachei

    sum_m += b[i]; //kol vo promaxov

    if b[i] > 1 then inc(data);

  end;

  writeln(sum_p - sum_m);

  writeln(data);

end;

begin

  readln(n);

  parse(a, b, n);

end.

//#2

var

  a: array of integer;

  n: integer;

procedure parse(var a: array of integer; n: integer);

var

  i: integer;

begin

  var data: integer : = 0;

  setlength(a, n);

  var sum: integer : = 0;

  for i : = low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;

  writeln(sum / (high(a) + 1): 0: 4);

  write(data);

end;

begin

  readln(n);

  parse(a, n);

end.