11.5 помогите , срочно надо

Question

11.5
помогите , срочно надо

---

Answer 1

Program weight;
uses crt;

var i: integer;
    a: array[1..100] of integer;
   
begin clrscr;
      randomize;
      for i:=1 to 20 do
      a[i]:=random(51)+50;

      for i:=1 to 20 do
      writeln('Вес ',i,' = ',a[i],'  ');
     
      readln;
end.