Написать процедуру нахождения максимального из элементов sin(a1),sin(a2),..sin(an),где а-элемент массива

[Dimon79]

помогите написать прогу в паскале Написать процедуру нахождения максимального из элементов sin(a1),sin(a2),..sin(an),где а-элемент массива

[Serge_Bliznykov]

начало программы может быть, например, таким:

const N = 10;
type myArray = array[1..N] of real;

procedure FindMax(A : myArray; var maxValue : real);
var i : integer;
begin
  maxValue := sin( A[1] );
  for i:=2 to N do
     if maxValue < sin( A[i] ) then  maxValue := sin( A[i] );
end;
.......

дальше справитесь?
нужно описать переменную для хранения массива типа myArray,
переменную, куда процедура поместит максимальное значение.
заполнить массив значениями, потом вызвать процедуру и вывести результат...

[Dimon79]

не справлюсь,напишите пожалуйста,очень нужно....стипендия решается

[Serge_Bliznykov]

о... так Вы пришли на экзамен по языку Паскаль, а Вы его ВООБЩЕ не знаете, настолько, что не можете даже написать объявление переменных?!!!

[Dimon79]

не могу............((((

[Serge_Bliznykov]

ладно. из ненужной жалости:

const N = 10;
type myArray = array[1..N] of real;

procedure FindMax(A : myArray; var maxValue : real);
var i : integer;
begin
  maxValue := sin( A[1] );
  for i:=2 to N do
     if maxValue < sin( A[i] ) then  maxValue := sin( A[i] );
end;

var
  i : integer;
  A : myArray;
  max : real;
begin
  {ввод значений массива A}
  for i:=1 to N do begin
     Write('Введите A[',i,']: ');
     ReadLn(A[i]);
  end;
  
  FindMax( A, max);
  
  WriteLn('Максимальное значение синуса для массива A = ', max:8:3);
  Readln
end.