Найти величину наибольшего отрицательного среди чисел заданной последовательности

@fanaman · Регистрация: 15.11.2016

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

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

@kreotodr · 16.11.2016, 18:09

Я так до конца и не понял задачи..
А с учетом скорости написания ваших ответов, все мрачно...
Стучитесь в одноименный скайп. может голосом быстрее пойдет.

@fanaman · 16.11.2016, 18:11 **[ТС]**

kreotodr, напиши мне пожалуйста эту програмку

@kreotodr · 16.11.2016, 18:18

Если честно я так до кнца и не понял, что нужно...

@fanaman · 16.11.2016, 22:16 **[ТС]**

kreotodr, классно что нужно???если бы я знал!!!нужно написать решение задачи в бейсике!!!я извиняюсь но просто сроки поджимают!!!нудно найти наибольшее значение из отрицательных по моему

@Sasha_Smirnov · 17.11.2016, 05:37

Ну раз с Эксселем задружились, kalbasiatka вам в помощь: Максимальный элемент массива (хотя ответ он даёт неверный, но linkel рад уже тому, что

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

все работает)!!!

А для поднятия боевого духа пара новостей: http://vk.com/wall-36959676_2564766 (учёба); http://vk.com/wall-36959676_2565316 (ввод-вывод).

К тому же, fanaman, ваша тема чемпион по просмотрам за сутки: 148!

@kreotodr · 17.11.2016, 06:08

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

kreotodr, напиши мне пожалуйста эту програмку

это не мой уровень...
Софт, вот, разработать могу....

Я выше написал, что нужно уточнить....
Это тоже трудно?

@fanaman · 17.11.2016, 15:22 **[ТС]**

вводится с клавиатуры

Добавлено через 22 секунды
kreotodr, вводится с клавиатуры

@kreotodr · 17.11.2016, 15:23

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

вводится с клавиатуры

куда вводятся?
количество элементов в массиве?

@fanaman · 17.11.2016, 15:28 **[ТС]**

kreotodr, не указано значить без разницы но думаю хотя бы минимум 5

@kreotodr · 17.11.2016, 15:29

куда вводятся?

@fanaman · 17.11.2016, 15:30 **[ТС]**

Sasha_Smirnov, привет у kalbasiatka это решение?

Добавлено через 38 секунд
kreotodr, вот этого я незнаю

@kreotodr · 17.11.2016, 15:32

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

вот этого я незнаю

нужно уточнить!

@fanaman · 17.11.2016, 15:45 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a: array[1..20] of real;
    min: real;
    i,n: integer;
begin
write('Введите число элементов, не больше 20: ');
read(n);
writeln('Ввод массива:');
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n do begin
if a[i]<0 then break;
min:=a[i+1];
end;
for i:=1 to n do begin
if a[i]<0 then begin
if abs(a[i])<abs(min) then min:=a[i];
end;
end;
writeln('Ответ: ',min);
end.

@fanaman · 17.11.2016, 16:03 **[ТС]**

kreotodr, было бы у кого уточнить

Добавлено через 22 секунды
kreotodr, препод даже номер не дает

Добавлено через 29 минут
kreotodr, ????

@Sasha_Smirnov · 17.11.2016, 16:37

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

у kalbasiatka это решение?

Да, но бездумное. Я же подчеркнул:

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

хотя ответ он даёт неверный

Вы же обучаетесь там на кого-то крутого — так обмозгуйте, что там не так. Погоняйте код.

echs · 17.11.2016, 16:46

fanaman
я перевел с Паскаля на QBasic. И обнаружил в
Паскале минимум две ошибки. Если бы я знал
Вашу задачу, то я ее решил бы и без Паскаля.
Судя по общему виду программы, в ней задается
массив и ищется минимум. Странная программа!...
написано так, как будто хотели кого-то запутать.
Итак
Это дословный перевод, заданной вами программы.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
DIM a(1 TO 20)
 
INPUT "N <= 20"; n
PRINT "Vvod Massiv"
 
FOR i = 1 TO n
   INPUT a(i)
NEXT
 
FOR i = 1 TO n
   IF a(i) < 0 THEN EXIT FOR
   min = a(i + 1)
NEXT
 
FOR i = 1 TO n
   IF a(i) < 0 THEN
      IF ABS(a(i)) < ABS(min) THEN min = a(i)
   END IF
   min = a(i + 1)
NEXT
 
PRINT "OTVET: "; min
END

@kreotodr · 17.11.2016, 17:11

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

препод даже номер не дает

плохо!
уточните пожалуйста....

@fanaman · 17.11.2016, 17:18 **[ТС]**

Sasha_Smirnov, я учусь вообще на механика а информатика ето точно не мое

@kreotodr · 17.11.2016, 17:22

Смотрите, вы приходите в магазин и говорите "колбасы дай!" В ответ у Вас вежливо спрашивают, простите Вам какой ливерной иле сервилат? Копченной или варенной? Нарезать или куском. Вы отвечаете, "я тебе сказал я не мясник, КОБАСЫ ДАЙ"... Суть думаю предельно ясна....??? Или нет???

@fanaman · 17.11.2016, 17:35 **[ТС]**

kreotodr, суть то ясна но где ж ее взять в этом задании

Добавлено через 2 минуты
kreotodr, а ты можешь из Qbasic перевести в визуал бейсик?

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34

	Найти величину наибольшего отрицательного среди чисел заданной последовательности 16.11.2016, 00:56. Показов 4426. Ответов 60 Метки нет (Все метки) Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности. 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	16.11.2016, 18:09
	Я так до конца и не понял задачи.. А с учетом скорости написания ваших ответов, все мрачно... Стучитесь в одноименный скайп. может голосом быстрее пойдет. 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	16.11.2016, 18:11 [ТС]
	kreotodr, напиши мне пожалуйста эту програмку 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	16.11.2016, 18:18
	Если честно я так до кнца и не понял, что нужно... 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	16.11.2016, 22:16 [ТС]
	kreotodr, классно что нужно???если бы я знал!!!нужно написать решение задачи в бейсике!!!я извиняюсь но просто сроки поджимают!!!нудно найти наибольшее значение из отрицательных по моему 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 15:22 [ТС]
	вводится с клавиатуры Добавлено через 22 секунды kreotodr, вводится с клавиатуры 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 15:28 [ТС]
	kreotodr, не указано значить без разницы но думаю хотя бы минимум 5 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	17.11.2016, 15:29
	куда вводятся? 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 15:30 [ТС]
	Sasha_Smirnov, привет у kalbasiatka это решение? Добавлено через 38 секунд kreotodr, вот этого я незнаю 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 16:03 [ТС]
	kreotodr, было бы у кого уточнить Добавлено через 22 секунды kreotodr, препод даже номер не дает Добавлено через 29 минут kreotodr, ???? 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 17:18 [ТС]
	Sasha_Smirnov, я учусь вообще на механика а информатика ето точно не мое 0

@kreotodr 39 / 39 / 8 Регистрация: 15.08.2014 Сообщений: 634
	17.11.2016, 17:22
	Смотрите, вы приходите в магазин и говорите "колбасы дай!" В ответ у Вас вежливо спрашивают, простите Вам какой ливерной иле сервилат? Копченной или варенной? Нарезать или куском. Вы отвечаете, "я тебе сказал я не мясник, КОБАСЫ ДАЙ"... Суть думаю предельно ясна....??? Или нет??? 0

@fanaman 2 / 2 / 0 Регистрация: 15.11.2016 Сообщений: 34
	17.11.2016, 17:35 [ТС]
	kreotodr, суть то ясна но где ж ее взять в этом задании Добавлено через 2 минуты kreotodr, а ты можешь из Qbasic перевести в визуал бейсик? 0