1. В одномерном массиве, состоящем из n вещественных элементов:
1) определите, какие числа встречаются в нем более двух раз;
2) выведите на экран элементы массива, большие среднего арифметического.


2. Дана последовательность целых чисел, за которой следует ноль.
Определите число соседств чисел с одинаковыми знаками.

тебе решение целиком написать?

очень хотелось бы

ау-у-у-у, альтруисты, где вы-ы?

стянула где то горшок с цветами, теперь решения задач хочешь...

не надо, программирование  - не твоё

при чем тут моя работа?;)

(0) Ой зря ты сюда пришла)

в том-то и дело, что надо(

(6) на форум кинологов уже обращалась ?

однако, пятница начнется в среду...

очень вас рекомендовали, вот и пришла

может кто-то что-то и напишет, хотя.. нет, не напишет

(11) Тебе на 1С надо это сделать?

в частности мне просто нужен программный код

Здесь так не принято.
Нужно показать что уже у самой получилось, подскажут что неправильно

Проведем краткий анализ топика:
Автор не владеет навыками алгоритмизации.
Автор не владеет синтаксисом 1С, да и думаю вообще с языками программирования у ТС очень плохо.
Автору нужно решить задание. Зачем? Видимо при устройстве на работу.
Будут ли люди помогать обмануть работодателя?
К чему приведет в дальнейшем такая ложь?

автору нужно сдать контрольную

(17) завтра?

2) выведите на экран элементы массива, большие среднего арифметического.
///Среднее-арифмитическое
й=0;
Для каждого Эл Из МойМассив Цикл
й = й + Эл;
КонецЦикла;
Среднее = й МойМассив.Количество();
//Вывод
Для каждого Эл Из МойМассив Цикл
Если Эл > Среднее Тогда
Сообщить(Эл);
КонецЕсли;
КонецЦикла;

З.ы. начинайте кидаться какахами

(17) Но контролируется то как раз некий навык. Если его нет, то зачем обманывать экзаменующую сторону? Нет навыка - нет зачета.

(19) :)

к 02/06

*Среднее = й / МойМассив.Количество();

(22) сочувствую, примите соболезнования...

1.1 я бы вобще как 1сник запихнул в ТЗ и запросом вывел... писать алгоритмы лень

определите, какие числа встречаются в нем более двух раз:

ТЗ = Новый ТаблицаЗначений();
ТЗ.Колонки.Добавить("А");
ТЗ.Колонки.Добавить("Б");
ТЗ.ЗагрузитьКолонку(МассивЧисел,"А");
ТЗ.ЗаполнитьЗначения(1,"Б");
ТЗ.Свернуть("А","Б");
Для Каждого Стр Из ТЗ Цикл
 Если Стр.Б > 1 Тогда
   Сообщить(Стр.А);
 КонецЕсли;
КонецЦикла;

(26) строки в ТЗ должны быть созданы только, насколько я помню. столько же сколько и в массиве

(27) Да, точно.

ЧислоСоседствЧисел = 0;
ПеременнаяМассива = 0;
Пока МойМассив[ПеременнаяМассива]<>0 Цикл
Если МойМассив[ПеременнаяМассива]>0 и МойМассив[ПеременнаяМассива]>0 Тогда ЧислоСоседствЧисел =  ЧислоСоседствЧисел +1;
КонецЕсли;
Если МойМассив[ПеременнаяМассива]<0 и МойМассив[ПеременнаяМассива]<0 Тогда ЧислоСоседствЧисел =  ЧислоСоседствЧисел +1;
КонецЕсли;
ПеременнаяМассива = ПеременнаяМассива+1;
КонецЦикла;

ой, ошибся:
ЧислоСоседствЧисел = 0;
ПеременнаяМассива = 0;
Пока МойМассив[ПеременнаяМассива]<>0 Цикл
Если МойМассив[ПеременнаяМассива]>0 и МойМассив[ПеременнаяМассива+1]>0 Тогда ЧислоСоседствЧисел =  ЧислоСоседствЧисел +1;
КонецЕсли;
Если МойМассив[ПеременнаяМассива]<0 и МойМассив[ПеременнаяМассива+1]<0 Тогда ЧислоСоседствЧисел =  ЧислоСоседствЧисел +1;
КонецЕсли;
ПеременнаяМассива = ПеременнаяМассива+1;
КонецЦикла;

в чем тут ошибка? ( не работает программа)

Перем Число, Количество;
Таблица = Новый Массив;

ВвестиЧисло(Количество,"Введите количество элементов");
Для сч=1 по Количество Цикл
ВвестиЧисло(Число, "Введите " + сч + " элемент");
Таблица.Добавить(Число);
КонецЦикла;

сумма = 0;
для сч=0 по Количество-1 Цикл
сумма = сумма+Таблица[сч];
КонецЦикла;

Ответ=новый массив;
у=сумма/количество;
Для сч=1 по количество Цикл
если сч>у тогда
Ответ.Добавить(сч);
КонецЕсли;
КонецЦикла;

(43) вроде на первый взгляд должно. что конкретно не работает?

ввела может все числа одинаковые, тогда не будет конечно больше среднего ничего

Сомневаюсь, что, например, Дельфи, знает, что такое ТаблицаЗначений.

Пешите примитивно.

(44) На экран не выводится))

индекс выходит за границы массива

с разними числами тоже не работает(

разными*

(46) А где там таблица значений?

для сч=0 по Таблица.Количество()-1 Цикл

(48) Ответ.Добавить(сч) добавь минус 1

Для примера юзай 3 числа, 1,2,3

Не

Для сч=1 по количество Цикл
если сч>у тогда
Ответ.Добавить(сч);
КонецЕсли;

а

Для сч=1 по количество Цикл
если Таблица[сч]>у тогда
Ответ.Добавить(Таблица[сч]);
КонецЕсли;

а то итератор сравниваешь со средним

все равно индекс за границами(

Я скопировал и запустил, все отработало...

это было на пред.сообщ, сейчас это попробую)

(55) это косяк, да, но ошибки быть не должно такой. К индексу обращается только тут сумма = сумма+Таблица[сч];

(57) =(

вместо индексов можно и Для каждого Цикл, точно выхода за границы массива не будет.

Я ж говорю, создал внешнюю обработку, в модуль скопипастил этот код, задал число символов 5, ввел 1 2 3 4 5, все норм, кроме сравнения со средней. Отработало без ошибок

не весь код выложила, он почти нормальный

не работает(
причину не могу понять(

(65) http://pics.wikireality.ru/upload/a/a7/Etl.jpg

(65) Ну не расстраивайся(( Выложи весь код мы тебе поможем!

У тебя был код

сумма = 0;
для сч=0 по Количество Цикл
сумма = сумма+Таблица[сч];
КонецЦикла;

Выдавал эту ошибку, ты исправила в обработке/конфигурации на "по Количество - 1", потом или забыла сохранить, или забыла закрыть обработку после сохранения и окрыть заного.

Перем Число, Количество;
Таблица = Новый Массив;

ВвестиЧисло(Количество,"Введите количество элементов");
Для сч=1 по Количество Цикл
ВвестиЧисло(Число, "Введите " + сч + " элемент");
Таблица.Добавить(Число);
КонецЦикла;

сумма = 0;
для сч=0 по Количество-1 Цикл
сумма = сумма+Таблица[сч];
КонецЦикла;

Ответ = новый массив;
у=сумма/количество;
Для сч=1 по количество Цикл
если Таблица[сч]>у тогда
Ответ.Добавить(Таблица[сч]);
КонецЕсли;
КонецЦикла;

Строкавывода = "";
Для сч=0 по Количество-1 Цикл
Строкавывода = СтрокаВывода + Ответ[сч] + " ";
КонецЦикла;
ЭлементыФормы.массив.Значение = СтрокаВывода;

телепат бот моде он

с этим выходит за границы

(68) или кэш)

Для сч=0 по Количество-1 Цикл
Строкавывода = СтрокаВывода + Ответ[сч] + " ";
КонецЦикла;

Это какой-то жирный троль! не поддавайтесь на провакации

(43) в ДНК

(69) Ну поправь же!

Для сч=1 по количество Цикл

В массиве Ответ меньше символов

Для сч=0 по Ответ.Количество() - 1 Цикл
Строкавывода = СтрокаВывода + Ответ[сч] + " ";
КонецЦикла;

омг, это что, семерка? оО

(18) Здоровский вопрос! :))

есть еще такое, ту же ошибку выводит

перем кол, а;
Таблица= новый массив;

ВвестиЧисло(Кол,"Введите количество элементов");
Для сч=1 по Кол Цикл
ВвестиЧисло(а, "Введите " + сч + " элемент");
Таблица.Добавить(а);
КонецЦикла;

к=0;
для сч=0 по кол-1 цикл

если Таблица[сч]*Таблица[сч+1]> 0 тогда
к=к+1;
КонецЕсли;
КонецЦикла;


ЭлементыФормы.Ответ.Значение = к;

Таблица[сч]*Таблица[сч+1]

ты правда троллишь? Зачем здесь +1?

Ты понимаешь что индекс в массиве считается с 0, те количество элементов всегда = макс индекс + 1?

(81)

к=0;
для сч=0 по кол-2 цикл

если Таблица[сч]*Таблица[сч+1]> 0 тогда
к=к+1;
КонецЕсли;
КонецЦикла;