Одномерные массивы на Pascal

[димон4ик]

Одномерные массивы на Pascal

1 Выбрать алгоритм, составить его блок-схему и программу, в которой: предусмотреть ввод исходных данных a, b, n с клавиатуры;
2 Переписать отрицательные элементы массива X в массив Y и
подсчитать их количество. Элементы массива X вычисляются по формуле Xi = 3sqr (i -10) ×sin(i - 0,5), где i = 1, 2, …, 20.

 

[Vladimir_S]

1 Выбрать алгоритм, составить его блок-схему и программу, в которой: предусмотреть ввод исходных данных a, b, n с клавиатуры;

И дальше? Ну ввели 3 числа, а делать-то с ними что?

2 Переписать отрицательные элементы массива X в массив Y и подсчитать их количество. Элементы массива X вычисляются по формуле Xi = 3sqr (i -10) ×sin(i - 0,5), где i = 1, 2, …, 20.

Пожалуйста:

Const
 Nx=20;
Var
 X,Y:Array[1..Nx] of Real;
 i,Ny:Byte;
Begin
 Ny:=0;
 Writeln('Array X, ',Nx,' elements:');
 for i:=1 to Nx do
  begin
   X[i]:=3.0*Sqr(1.0*i-10)*Sin(1.0*i-0.5);
   write(X[i]:8:1);
   if X[i]<0 then
    begin
     Inc(Ny);
     Y[Ny]:=X[i];
    end;
  end;
 Writeln;
 Writeln('Array Y, ',Ny,' elements:');
 for i:=1 to Ny do
  write(Y[i]:8:1);
 Readln
End.