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

[димон4ик_]

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

[Stilet]

Выбрать алгоритм

Алгоритм ввода данных с клавиатуры может быть только в единственном числе - Человек шлепает по клавишам. Там не из чего выбирать.

[димон4ик_]

Сообщение от Stilet

Алгоритм ввода данных с клавиатуры может быть только в единственном числе - Человек шлепает по клавишам. Там не из чего выбирать.

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

[PavelDD]

Доброго времени суток.
Для того, чтобы все отрицательные элементы из массива X перетащить в массив Y
нужно всего лишь написать следующий цикл:

for i:=1 to n do
if x[i]<0 then y[i]:=x[i];

если нужно с клавиатуры прочитать, то:

readln(a,b,n);

[ViktorR]

for i:=1 to n do
if x[i]<0 then y[i]:=x[i];

Не совсем так, ибо при перемешивании с положительными, часть элементов массива y будет не инициализирована.

k := 1;
for i := 1 to n do
   if x[i] < 0 then
   begin
      y[k] := x[i];
      ink(k);
   end;

Где-то так ...