Найти среднее значение элементов массива. Начало знаю:

program s;

var m: array [1 ... 100] of integer;

s, i: integer; sr: real;

begin

randomize

for i: = 1 to 100 do m[i]: = random (100) ;

s:=0

что дальше писать?

Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?

Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .

Program n_6; var i, x, y, z:integer; m:array[1 ... n] of integer = (1,2,3,4,5,6,7,8,9,10) ; procedure nod (a, b:integer; var c:integer) ; begin if a>b then a:=a-b else b:=b-a; randomize; for i:=1 to n do x:=m[1]; for i:=2 to n do begin m[i]:=random;

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;

Program PS; var n, i: integer; b: real; a: array[1 ... 3] of real; otoplenie: boolean; begin read (n) ; for i : = 1 to 3 do a[i] : = random (50) - 20 + random () ;