Технический форум - Одномерные массивы на Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Одномерные массивы на Pascal (http://www.tehnari.ru/f41/t85356/)

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

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

Цитата:

Сообщение от димон4ик (Сообщение 866972)

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

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

Цитата:

Сообщение от димон4ик (Сообщение 866972)

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.