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

@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 перевести в визуал бейсик?

Новые блоги и статьи Все статьи Все блоги /
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .

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

	Найти величину наибольшего отрицательного среди чисел заданной последовательности 16.11.2016, 00:56. Показов 4143. Ответов 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