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

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

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

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

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