Создание нового массива и определение минимального элемента

@Spender163 · Регистрация: 04.03.2012

Author24 — интернет-сервис помощи студентам

Ребят,помогите пожалуйста с программой.
В одномерном массиве A[i] элементы которого подсчитываются по формуле A[i]=0.7tg(I)/I определить минимальный элемент массива. Сформировать новый массив H[Y] из элементов массива A[I],стоящих до минимального элемента и массив T[K]-из элементов,стоящих после минимального.
Спасибо заранее.

@Фаер · 04.03.2012, 15:57

Pascal

Uses crt;
Var A:array[1..100] of real; H:array[1..100] of real; T:array[1..100] of real;
x,i,n,k:integer; min:real;
Begin
Write('Input n:'); Readln(n); min:=1;
For i:=1 to n do
 Begin
  A[i]:=0.7*sin(i)/cos(i)/i; Writeln(A[i]:5:3);
  If A[i]<min then
   Begin
    min:=A[i]; x:=i;
   End;
 End;
For i:=1 to n do
 If i<x then H[i]:=A[i] else
  Begin
   inc(k); T[k]:=A[i];
  End;
TextColor(4);
For i:=1 to x-1 do Write(H[i]:5:3,' ');
Writeln; TextColor(2);
For i:=2 to k do Write(T[i]:5:3,' ');
Readln;
End.

@Spender163 · 04.03.2012, 16:50 **[ТС]**

спасибо)

@Spender163 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 7
		1
	Создание нового массива и определение минимального элемента 04.03.2012, 13:47. Показов 1239. Ответов 2 Метки нет (Все метки) Ребят,помогите пожалуйста с программой. В одномерном массиве A[i] элементы которого подсчитываются по формуле A[i]=0.7tg(I)/I определить минимальный элемент массива. Сформировать новый массив H[Y] из элементов массива A[I],стоящих до минимального элемента и массив T[K]-из элементов,стоящих после минимального. Спасибо заранее. 0

@Spender163 0 / 0 / 0 Регистрация: 04.03.2012 Сообщений: 7
	04.03.2012, 16:50 [ТС]	3
	спасибо) 0

Создание нового массива и определение минимального элемента

Решение