Какое число встречается раньше - положительное или отрицательное?

@Proffessor · Регистрация: 14.11.2010

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

Unrealler,
Уважаемый модератор помогите пожалуйста решить задачу . Буду очень благодарен,

Задача: Дана последовательность целых чисел a1, a2, ..., an. Выяс¬нить, какое число встречается раньше — положительное или отрицательное.

Комментарий модератора

Это не та тема, где задают вопросы.

Создаю отдельную тему для этой задачи.

@Mawrat · 16.12.2010, 00: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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program Project1;
 
const
  M = 20;
var
  Arr : array[1..M] of Integer;
  i, F : Integer;
  S : String;
begin
  repeat
    Writeln('Исходный массив:');
    //Заполняем массив.
    Randomize;
    for i := 1 to M do begin
      case Random(7) of
        0 : Arr[i] := 1;
        1 : Arr[i] := -1;
        else Arr[i] := 0;
      end;
      //Распечатка элементов массива.
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Определяем какое число встречается раньше -
    //положительное или отрицательное.
    F := 0;
    for i := 1 to M do begin
      if Arr[i] > 0 then begin
        F := 1;
        Break;
      end else if Arr[i] < 0 then begin
        F := -1;
        Break;
      end;
    end;
 
    if F > 0 then
      Writeln('Раньше встречается положительное число.')
    else if F < 0 then
      Writeln('Раньше встречается отрицательное число число.')
    else
      Writeln('Массив содержит только нули.')
    ;
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

Новые блоги и статьи Все статьи Все блоги /
Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .	Метод с двумя буферами (или double buffering) или ping-pong buffering Hrethgir 02.04.2025 Из ответов LM модели. Метод, который предполагает использование двух массивов для хранения промежуточных результатов сложения векторов, обычно применяется в сценариях, где необходимо минимизировать. . .	На любовном киберфронте Alexander-7 01.04.2025 Недавно на одном малоизвестном сайте знакомств мною заинтересовалась девушка: «Текст немного странный. Но, судя по адресу почты, иностранка», – подумал я. Поколебавшись пару суток, я ответил ей:. . .	Как работает Node.js изнутри run.dev 29.03.2025 Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .	Моки в Python: Mock Object Library py-thonny 29.03.2025 Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .
JavaScript: Управление памятью и улучшение производительности run.dev 29.03.2025 В отличие от низкоуровневых языков программирования, JavaScript не требует ручного выделения и освобождения памяти. Здесь работает автоматический сборщик мусора, который определяет, какие объекты. . .	Мультитенантная архитектура со SpringBoot и PostgreSQL ArchitectMsa 29.03.2025 SaaS-приложения редко обслуживают одного клиента и обычно они должны поддерживать множество организаций, каждая из которых работает в своём изолированном пространстве. Мультитенантная архитектура. . .	std::span в C++: Производительность и лучшие практики NullReferenced 28.03.2025 std::span — одно из самых недооценённых нововведений стандарта C++20, которое радикально меняет подход к работе с непрерывными последовательностями данных. По сути, это невладеющее представление. . .	Многопоточность в C#: Threadpool UnmanagedCoder 28.03.2025 Пул потоков в C# — это коллекция заранее созданных и готовых к использованию потоков, которые находятся в распоряжении приложения. Вместо того чтобы создавать и уничтожать потоки для каждой небольшой. . .	Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .

Какое число встречается раньше - положительное или отрицательное?

Решение