Question

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

Answer 1

//#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.