Website and domain for sale: mail@discussmain.com

Please count With PLEASE INFORMATIKOYNAPISAT the PASCAL programs: 1) which will create the massif from 20 odd numbers and will count the sum and an arithmetic average of these numbers. 2) which will create the massif from 15 random numbers from 35 to 75 inclusive, will find quantity of elements which value lies from 50 to 60.

81
1 uses crt task; var a: Array [1. 255] of Integer; n, sum, srsum: Integer; begin n: = 1; for var i: = 1 to 255 do if (i mod 2) & lt; & gt; 0 then begin if n = 20 then exit; a[n]: = i; inc(n); end; for var i: = 1 to 20 do sum: = sum + a[i]; writeln (srsum div 20); end. The 2nd uses crt task; var a: Array [1. 15] of Integer; i, k: Integer; begin Randomize; for i: = 1 to 15 do begin a[i]: = Random(40) + 35; end; for i: = 1 to 15 do if (a[i] & lt; = 60) and (a[i] & gt; = 50) then inc (k); writeln(k); end.
108
Answer add