1. заполнить массив MX (20) случайными однозначными числами. Подсчитать количество нечетных элементов. Уменьшить каждый элемент на это значение.

2. В массиве хранятся сведения о возрасте работающих (случайные числа в {16; 60]). Определить, на сколько лет возраст самого старшего превышает возраст самого младшего.

3. заполнить массив ММ (10) случайными двузначными числами. Поменять местами наибольший и первый элементы.

Uses Crt;

Const

N = 20;

Var

MX:array[1 ... N] of integer;

i, k:integer;

Begin

ClrScr;

Randomize;

k:=0;

Write ('Исходный массив:') ;

For i:=1 to N do

Begin

MX[i]:=random (10) ;

Write (' ', MX[i]) ;

if MX[i] mod 2 0 then k:=k+1;

End;

WriteLn;

WriteLn ('Количество нечётных элементов: ', k) ;

Write ('Преобразованный массив:') ;

For i: = 1 to N do

Begin

MX[i]:=MX[i]-k;

Write (' ', MX[i])

End;

ReadLn

End.

uses Crt;

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, Max, Min:integer;

Begin

ClrScr;

Randomize;

Min:=1;

Max:=1;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

A[i]:=random (44) + 17;

Write (' ', A[i]) ;

if A[Min]>A[i] then Min:=i;

if A[Max]
End;

WriteLn;

WriteLn ('Max = ', A[Max]) ;

WriteLn ('Min = ', A[Min]) ;

WriteLn ('Max - Min = ', A[Max]-A[Min]) ;

ReadLn

End.

Const

N = 13;

Var

MM:array[1 ... N] of byte;

B:byte;

i, Max:integer;

Begin

Randomize;

Max:=1;

Write ('Исходный массив:') ;

For i: = 1 to N do

Begin

MM[i]:=random (90) + 10;

Write (' ', MM[i]) ;

if MM[i]>MM[Max] then Max:=i;

End;

WriteLn;

WriteLn ('Max (MM) = MM[', Max,'] = ', MM[Max]) ;

Write ('Новый массив:') ;

B:=MM[1];

MM[1]:=MM[Max];

MM[Max]:=B;

For i: = 1 to N do

Write (' ', MM[i])

End.