Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А

@dulkazex · Регистрация: 20.01.2017

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const N = 10;
var 
    a: array[1..N] of integer;
    b: array[1..N] of integer;
    i: byte;
begin
    randomize;
    for i:=1 to N do begin
        a[i] := random(100) - 50;
        writeln('a[',i,']=',a[i]);
        
        if a[i] > 0 then b[I]:=a[i];
    
        writeln('b[',i,']=',b[i]);
    end;
 
    
end.

Если а<0, то она выводит, что элемент массива b=0. А как сделать, чтоб выводился следующий элемент массива а?

@Alexandr212 · 20.01.2017, 16:59

Попробуй так, нужно для массива В просто свой индекс добавить и все.

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
const
  N = 10;
 
var
  a: array[1..N] of integer;
  b: array[1..N] of integer;
  i, k: integer;
 
begin
  randomize;
  for i := 1 to N do 
  begin
    a[i] := random(100) - 50;
    write(' a[', i, ']= ', a[i]);
  end; 
  
  
  writeln;
  writeln;
  
  for i := 1 to N
    do 
  begin
    if a[i] < 0 then begin
    k+=1;//k индекс для массива В
      b[k] := a[i];
      write(' b[', k, ']= ', b[k]);
    end;
  end;
end.

@volvo · 20.01.2017, 17:08

Pascal
24
    if a[i] > 0 then begin // знак. В задаче нужны положительные числа, а не отрицательные

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

Опции темы