Kitten

Помогите пожалуйста, очень нужна помощь. Учусь на заочке на ландшафтный дизайн, по программированию полный нуль. А препод свирепствует. Должны знать все говорит.
Теорию хоть как-то понимаю, а вот с практикой совсем туго. Выручайте...

1) Написать программу нахождения разности номеров первого и второго отрицательных значений в последовательности N вводимых вещественных чисел.

2) Написать программу нахождения максимального отрицательного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) вещественных чисел.

3) Написать программу нахождения номера максимального отрицательного значения в последовательности произвольных целых вводимых чисел с окончанием выбора по вводу признака конца.

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

5) Написать программу нахождения разности номеров максимального и минимального нечетных значений в последовательности N вводимых чисел.

6) Написать программу вычисления произведения последовательно вводимых чисел для заданного количества чисел, пропуская числа меньшие по модулю чем 0.1.


7) Написать программу нахождения номера наибольшего четного положительного элемента в последовательности N произвольных чисел, вводимых с клавиатуры.

8) Написать программу нахождения максимального отрицательного нечетного значения в последовательности N вводимых произвольных (как положительных, так и отрицательных) чисел.

9) Написать программу нахождения номера минимального положительного значения в последо¬вательности вводимых вещественных чисел с окончанием по вводу признака конца.

@Gluhow

Здравствуйте, kitten. Я готов Вам НАПИСАТЬ программу но за пряники. Могу ПОМОЧЬ в рамках форума бесплатно, но только в том случае если Вы выложите СВОЕ решение, которое надо как-то поправить.

0

@marusy

Написать программу вычисления номера последнего отрицательного числа из последовательно вводимых произвольных чисел заданного количества.
program pascal
var x,n,i,res : integer;
begin
res = 0;
writeln("n=");
readln(n);
for i:=1 to n do
begin
writeln("введите число");
readln(x)
if x < 0 then res:= i
end;
if res>0 then writeln(res)
else writeln ("выход");
end.

0

@Gluhow

Ну если поменять res = 0; на res := 0;, то очень похоже на рабочее решение.

0

@marusy

спасибо))

0

@marusy

а ты не мог бы показать решение к 6 задаче у Kitten, а то все решила, а эту не могу...
если хочешь конечно))

0

@Gluhow

Я чего-то никак до дому не дойду. Поэтому код без проверки компилятором

6) Написать программу вычисления произведения последовательно вводимых чисел для заданного количества чисел, пропуская числа меньшие по модулю чем 0.1

Это в случае если числа надо просто пропустить. Если надо добиться нужного количества чисел без пропуска, то

Как-то так. Если что не работает, пишите смогу проверить вечером. Наверное...

0