{Массив задаётся с генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.} procedure minZNmas; var mas: array[1..15] of integer; k: integer; min: integer; s: string; begin
randomize; //Заполнение массива случайными величинами s:=''; for k:=1 to 15 do begin mas[k]:=random(800); s:=s+IntToStr(mas[k])+','; end;
//Поиск минимального значения min:=mas[k]; for k:=1 to 15 do if mas[k]<min then min:=mas[k];
Var x, h, y, alpha : real; begin write('k = '); read(x); write('h = '); read(h); y := 2; while y < 3 + 1E-9 do begin writeln('y = ', y, ', alpha = ', arccos(y / x) * 180 / pi : 0 : 3); y := y + h; end; end.
Пример работы программы: k = 5 h = 0.1 y = 2, alpha = 66.422 y = 2.1, alpha = 65.165 y = 2.2, alpha = 63.896 y = 2.3, alpha = 62.613 y = 2.4, alpha = 61.315 y = 2.5, alpha = 60.000 y = 2.6, alpha = 58.668 y = 2.7, alpha = 57.316 y = 2.8, alpha = 55.944 y = 2.9, alpha = 54.549 y = 3, alpha = 53.130
procedure minZNmas;
var
mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.