Здесь есть программисты?Подскажите
???
Мудрость форума: Психология
- Удача или усилия?91 831 ответ
- У кого-то была затяжная лень, апатия? Выбрались из нее самостоятельно?4 512 ответов
- А давайте становиться настоящими женщинами!!1 708 ответов
- Не знаю, что делать со своей жизнью дальше...13 338 ответов
- Вранье без причины41 963 ответа
- А как вы справляетесь с несчастной любовью?10 760 ответов
- С возрастом мне все тяжелее общаться с мужчинами13 372 ответа
- Есть ли женщины, которые счастливы без детей?8 827 ответов
- Как пережить смерть любимого мужа?50 528 ответов
- Жизнь после развода12 076 ответов
8 ответов
Последний —
Перейти
Гость
Попробуйте поменять S:=min+max;
на S:=0;
на S:=0;
........
Эх... синтаксиса не помню.
Вроде так все норм... Если не ошибаюсь - сначала сумма считается, потом вывод на экран индексов мин и микс, дальше цикличный подсчет в двух вариантах, в зависимости какое число больше... Да, смущает первая строка - во первых без N, во вторых - вроде и правда двойной подсчет. Хотя - давно было..
Вроде так все норм... Если не ошибаюсь - сначала сумма считается, потом вывод на экран индексов мин и микс, дальше цикличный подсчет в двух вариантах, в зависимости какое число больше... Да, смущает первая строка - во первых без N, во вторых - вроде и правда двойной подсчет. Хотя - давно было..
гуй
поскольку я пишу под .net то вот на pascalabc.net
begin
var a := new integer[10];
for var i:=0 to 9 do
begin
a[i] := random(14);
write(a[i]+' ');
end;
//ищем минимум
var min := 1111111111111111111;
var indexmin:=-1;
for var i:=0 to a.length - 1 do
begin
if (a[i]max) then
begin
max := a[i];
indexmax := i;
end;
end;
var sum := 0;
if (indexmax
begin
var a := new integer[10];
for var i:=0 to 9 do
begin
a[i] := random(14);
write(a[i]+' ');
end;
//ищем минимум
var min := 1111111111111111111;
var indexmin:=-1;
for var i:=0 to a.length - 1 do
begin
if (a[i]max) then
begin
max := a[i];
indexmax := i;
end;
end;
var sum := 0;
if (indexmax
???
Гость
Попробуйте поменять S:=min+max;
на S:=0;
Это то от чего я ушла.
Попробуйте поменять S:=min+max;
на S:=0;
Это то от чего я ушла.
???
sum+=a[i];
не понняла этого выражения, может быть sum:=sum+a[i]?
не понняла этого выражения, может быть sum:=sum+a[i]?
???
не поняла*
???
всем спасибо, уже сама решила верно))
Внимание
Администрация сайта Woman.ru не дает оценку рекомендациям и отзывам о лечении, препаратах и специалистах, о которых идет речь в этой ветке. Помните, что дискуссия ведется не только врачами, но и обычными читателями, поэтому некоторые советы могут быть не безопасны для вашего здоровья. Перед любым лечением или приемом лекарственных средств рекомендуем обратиться к специалистам!
гуй
Сообщение было удалено
наследие Си(но это работает только на PABC.net)
Форум: Психология
Всего: 212 752 темы
Новые темы за сутки: 45 тем
- В чем их секрет?8 ответов
- Как знаки зодиака выбирают юриста для банкротства?7 ответов
- Как справиться со страхом перед операцией на глаза?17 ответов
- Что означает черная резинка на руке?9 ответов
- Чувствуете ли вы выгорание и как вы его лечите?9 ответов
- Хроники Чердака: Как я довела Пеннивайза до экзистенциального кризиса1 ответ
- Ваши лайфхаки, как облегчить себе жизнь?11 ответов
- Тип нервной системы передается по наследству?3 ответа
- Социофобия вообще лечится?30 ответов
- Кто такие шизоиды?4 ответа
Популярные темы за сутки: 10 тем
- Не хочу и не могу жить в общежитии44 ответа
- Социофобия вообще лечится?31 ответ
- Как справиться со страхом перед операцией на глаза?17 ответов
- Почему на поминках нельзя есть вилками?14 ответов
- Разгадайте сон,кто разбирается12 ответов
- Ваши лайфхаки, как облегчить себе жизнь?11 ответов
- Грустные размышления10 ответов
- В чем их секрет?9 ответов
- Чувствуете ли вы выгорание и как вы его лечите?9 ответов
- Что означает черная резинка на руке?9 ответов
Следующая тема
Задача: дана последовательность n различных целых чисел. Найти сумму её членов, расположенных между макс. и мин. значениями(в сумму включить и оба эти значения).
Составленная мной программа правильно определят макс. и мин. значения, а с подсчитыванием суммы проблемы(
Вот часть программы, где подсчитывается сумма членов последовательности:
S:=min+max;
WriteLn('ind',Nmin, Nmax);
If Nmin