1. Дан массив А из 10 элементов, которые заполняются случайным образом, числам от 0 100. Выведите массив на экран и найдите максимальный элемент массива.

2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0; 20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.

1. const N=10;

type Vector = array [1 ... N] of integer;

var B: vector;

max : integer;

procedure IntVector (N: integer; var a: vector) ;

begin

for var i : = 1 to N do a[i] : = random (100) ;

end;

procedure OutVector (N: integer; a: vector) ;

begin for var i : = 1 to N do

begin write (a[i]:5) ;

end;

end;

procedure Srav (a:vector; N, g:integer) ;

begin

g : = a[1];

for var i:=1 to N do

if (g < a[i]) then g:=a[i];

writeln (g) ;

end;

Begin

IntVector (N, B) ;

writeln;

OutVector (N, B) ;

writeln;

Srav (B, N, max) ;

writeln;

End.

2. const N = 10;

type Vector = array [1 ... N] of integer;

var B: vector;

r, v : real;

procedure IntVector (N: integer; var a: vector) ;

begin

for var i : = 1 to N do

a[i] : = random (20) ;

end;

procedure OutVector (N: integer; a: vector) ;

begin

for var i : = 1 to N do

begin

write (a[i]:5) ;

end;

end;

function srednee (a: vector; N: integer) : real;

begin

for var i : = 1 to N do begin result : = (result + a[i]) ;

end;

end;

function kolvo (a: vector; g: real) : real;

begin

for var i : = 1 to N do

if (a[i] < (srednee (a, N) / 10)) then result : = result + 1;

end;

begin

IntVector (N, B) ; writeln;

OutVector (N, B) ;

writeln;

writeln ((srednee (B, N) / 10) : 5:3) ; r : = kolvo (B, v) ;

writeln (r) ;

end.

1)

constn=10;

var

i:byte;

max:real;

a:array[1 ... n] of real;

begin

for i:=1 to n do

a[i]:=random (100) ;

for i:=1 to n do

write (a[i]:3) ;

for i:=1 to n do

max:=a[i];

if max
writeln ('Максимальный элемент = ', max) ;

end.