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

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

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.

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.