Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива

@VERNANDOO · Регистрация: 16.03.2014

Author24 — интернет-сервис помощи студентам

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

Добавлено через 5 часов 51 минуту
Вот я написал но чет не работает, где ошибка подскажите

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var c, min, max:real;
    i, j, m, f: integer;
    a:array[1..100] of real;
    b:array[1..100] of real;
    begin
         randomize;
         m:=1;
         min:=0;
         read(m);
         max:=-1000;
         for i:=1 to m   do
             begin
                  a[i]:=random(100)-50;
                  if a[i]<0 then
                  begin
                       b[m]:=a[i];
                       int(m);
                  end;
             end;
          if m > 0 then
                  for j:=1 to m-1 do
                  begin
                      for i:=1 to m-1 do
                      begin
                           if (b[i]<min) and (b[i]>max) then min:=b[i];
                      end;
                  b[j]:=min;
                  max:=min;
                  end;
          for i:=1 to m-1 do
           write(a[i],'  ');
           writeln();
           for i:=1 to m-1 do
           write(b[i],'  ');
 
end.

@kastiniel · 31.03.2014, 15:49

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

read(m);

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

for i:=1 to m * do

замените на n, и должно заработать

Добавлено через 55 секунд

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

m:=1;

присвойте 0

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

b[m]:=a[i];
* * * * * * * * * * * *int(m);

а здесь поменяйте местами

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

Опции темы