Массив задан датчиком случайных чисел на интервале [-31,45].
Сформировать новый массив В,состоящий из нечетных элементов массива А и найти в нем наименьший элемент.Размер произвольный. Решить с использованием функций(function). Pascal ABC.
// PascalABC.NET 3.0, сборка 1088 function InitA(n:integer):array of integer; begin Result:=ArrRandom(n,-31,45) end;
procedure GetA(var a:array of integer); begin a:=InitA(ReadInteger('Количество элементов в массиве А: ')); end;
procedure PutM(c:char; a:array of integer); begin Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a); end;
function FormB(a:array of integer):array of integer; begin Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray end;
function MinEl(a:array of integer):integer; begin Result:=a.Min end;
begin var mA:array of integer; GetA(mA); PutM('A',mA); var mB:=FormB(mA); PutM('B',mB); Writeln('Минимальный элемент в массиве В равен ',MinEl(mB)) end.
<em><u>Тестовое решение:</u></em> Количество элементов в массиве А: 15 *** Массив A[15] *** [-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26] *** Массив B[8] *** [-22,-9,14,38,-28,28,1,26] Минимальный элемент в массиве В равен -28
Uses crt; const n=10; var a:array[1..n] of integer; i,k:integer; begin k:=3; a[1]:=2; for i:=2 to n do begin a[i]:=a[i-1]+k; k:=k+2; end; for i:=1 to n do writeln(a[i]); end.
begin clrscr; repeat Write('Выберите фигуру (1-квадрат, 2-прямоугольник)'); Readln(n);
case n of 1: begin write('Сторона квадрата='); readln(a); Write('S=', a * a); end; 2: begin write('Стороны прямоугольника='); readln(b, a); Write('S=', b * a); end; else exit; end; until false; end.
Var a,b,c:real; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); if ((a<0) and(b<0))or((a>0) and (b>0)) then c:=(a+b)/2 else c:=(a*b)/2; writeln(c); <span>end.</span>