Подсчитать количество элементов массива, равных первому отрицательному

@davletkulov · Регистрация: 14.09.2010

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

Дан массив А.Подсчитать k-количество элементов,равных первому отрицательному.Если отрицательных нет, то положить k=-1.

@Puporev · 14.09.2010, 14:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
p_otr:=0;
for i:=n downto 1 do
if a[i]<0 then p_otr:=a[i];
if p_otr=0 then k:=-1
else
 begin
  k:=0;
  for i:=1 to n do
  if a[i]=p_otr then k:=k+1;
 end;
write('k=',k);

@Mad_Dog · 14.09.2010, 14:38

А мне это видится вот так:

Pascal
1
2
3
4
5
6
7
8
9
p_otr:=0;
k:=0;
for i:=1 to n do
  if a[i]<0 then
    if p_otr=0
      then p_otr:=a[i]
      else 
        if a[i]=p_otr then Inc(k);
if p_otr=0 then k:=-1;

@davletkulov · 14.09.2010, 14:41 **[ТС]**

Я Извиняюсь,а можно полностью оформление задачи.а то я совсем незнаю как...

@Mad_Dog · 14.09.2010, 14:50

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
Uses Crt;
Const
  max=20;
Var
  a:array[1..Max] of integer;
  p_otr, k:integer;
  i:1..Max;
Begin
  Randomize;
  for i:=1 to Max do
    begin
      a[i]:=random(100)-50;
      write('  ',a[i])
    end;
  p_otr:=0;
  k:=0;
  for i:=1 to Max do
    if a[i]<0 then
      if p_otr=0
        then p_otr:=a[i]
        else 
          if a[i]=p_otr then Inc(k);
  if p_otr=0 then k:=-1;
  writelnl
  if k=-1
    then writeln('Not negative numbers...')
    else writeln('K= ',k);
  repeat
  until KeyPressed
End.

@Puporev · 14.09.2010, 15:04

Mad_Dog, Согласен, за 1 проход красивше, но я думаю автор вряд ли разберется...

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@davletkulov 0 / 0 / 1 Регистрация: 14.09.2010 Сообщений: 33

	Подсчитать количество элементов массива, равных первому отрицательному 14.09.2010, 13:18. Показов 1335. Ответов 5 Метки нет (Все метки) Дан массив А.Подсчитать k-количество элементов,равных первому отрицательному.Если отрицательных нет, то положить k=-1. 0

@davletkulov 0 / 0 / 1 Регистрация: 14.09.2010 Сообщений: 33
	14.09.2010, 14:41 [ТС]
	Я Извиняюсь,а можно полностью оформление задачи.а то я совсем незнаю как... 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	14.09.2010, 15:04
	Mad_Dog, Согласен, за 1 проход красивше, но я думаю автор вряд ли разберется... 0