Question

Помогите с программой на языке Паскаль , используя подпрограмму "procedure".Пожалуйста, очень срочно нужно.Задание 5,12

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

procedure Kol(p:array of integer; var r:integer);
begin
  r:=p.Where(t->t.Between(1,5)).Count
end;

begin
  var a:=ArrRandom(10,-5,10); Write('A: '); a.Println;
  var b:=ArrRandom(8,-5,10); Write('B: '); b.Println;
  var c:=ArrRandom(7,-5,10); Write('C: '); c.Println;
  var k,m,n:integer;
  Kol(a,k); Kol(b,m); Kol(c,n);
  var yp:=k+Abs(m-n);
  var y:=2/3+yp;
  Writeln('Y = ',yp+' 2/3 = ',y)
end.

Пример
A: 5 6 2 -5 -4 2 -2 -2 9 -3
B: -4 0 -1 9 8 -1 2 4
C: -3 6 2 7 -3 -2 1
Y = 3 2/3 = 3.66666666666667