Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal

  1. Дан массив С(п). Создать новый массив, элементами которого являются все отрицательные элементы массива C


textual

Код к задаче: «Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal»

const
  n = 10;
var
  c, b : array[1..n] of integer;
  i, j : integer;
begin
  randomize;
  j := 0;
  writeln('массив C');  
  for i := 1 to n do
  begin
    c[i] := random(20) - 10;
    write(c[i]:4);
    if c[i] < 0 then
    begin
      inc(j);
      b[j] := c[i]
    end
  end;
  writeln;
  writeln('массив B');
  for i := 1 to j do
    write(b[i]:4);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5



Похожие ответы
  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Создать модуль, дополняющий математические возможности Паскаля функциями для нахождения площади треугольника: «sGeron» - по известным трем сторонам, «sH» - по известным высоте и стороне основания, «Salfa» - по двум сторонам и углу между ними. Составить программу, которая использует данный модуль.

  1. Создать двумерный массив и вывести его на печать в виде матрицы.Выполнить задание: (i,j=1..4) 1) xi,j = i tan(pi/5) / 2+sin(ij) -вычислить сумму элементов столбцов. 2)xi,j=ctg(pi/5)+0,4 / 56+sin j -вычислить произведение элементов столбцов. Что тут означает вывести двумерный массив на печать? И что нужно делать с примерами 1 и 2?

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Помогите кто может...я понимаю как ввести часть там где Косметика(духи\шампунь), а вот как ввести все остальное... Создать массив записей, структура которого:

  1. всем здруствуйте помогите с некоторыми аспектами я уже разобрался.Создать систему обработки данных однотабличной базы, состоящей из записей следующего типа:

  1. Случайным образом разбросать сокровища (например,окружность) на экране.Реализовать движение паучка (любой граф объект) на экране.При попадании паучка на сокровище,сокровище исчезает (паучок его забрал).При этом увеличиваются очки игрока. Управление паучком с клавиатуры.Количество очков записывать в файл.Меню для игры выводить из текстового файла.

  1. Написать программу на TurboPascal. Задан случайными числами массив А. Сформировать новый массив С, который состоит из элементов массива А, которые превосходят свой номер на 10. одномерные массивы. помогите решить. Я уж и так и эдак, но ничего нормального даже близко не выходит.

  1. Помогите создать программу бегущую строку с добавлением обработки клавишей F8, по нажатию которой строка будет менять положение на экране (верх - низ).

  1. Дан дек строковых элементов. Составить новый дек, записывая в него элементы исходного дека, изымая их поочередно слева и справа.Помогите с подпрограммой. Вот модуль