Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 8
1

Нахождение номера наименьшего положительного элемента в последовательности

18.01.2012, 03:14. Просмотров 2009. Ответов 2
Метки нет (Все метки)


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

Написать программу вычисления номера первого отрицательного числа из последовательно вводимых вещественных чисел. Если "0" не встретился, закончить по вводу признака конца.

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

спасибо заранее)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2012, 03:14
Ответы с готовыми решениями:

Нахождение номера первого по порядку положительного элемента одномерного массива
Составьте прогу нахождения номера первого по порядку положительного элемента одномерного массива...

Нахождение номера элемента последовательности по его значению
Пожалуйста помогите с написанием кода. Напишите программу нахождения номера элемента...

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

Цикл: нахождение наименьшего положительного элемента массива [masm32]
Вечер добрый. Ассемблер только начали изучать...линейные проги ещё ладно,решаемо... но вот на...

2
22 / 22 / 18
Регистрация: 03.12.2011
Сообщений: 151
18.01.2012, 12:06 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Написать программу нахождения номера наименьшего положительного элемента в последовательности N произвольных чисел, вводимых с клавиатуры.
Если через массив, то вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program Project2;
 
uses
  SysUtils;
 
Const
 Max_n=100;
 
Var
 a:array [1..max_n] of integer;
 n,i,number,min:integer;
 b:boolean;
 
begin
 
  // Ввод количества чисел с проверкой
  Repeat
   Write('Vvedite kolichestvo chisel: ');
   Read(n);
  Until (n>0) and (n<=max_n);
 
  // Ввод последовательности
  Write('Vvedite chisla: ');
  For i:=1 to n do
   Read(a[i]);
  Readln;
 
  // Поиск первого положительного элемента
  i:=0;
  b:=true;
  While (i<=n) and b do
   Begin
    Inc(i);
    If a[i]>0 then b:=false;
   End;
 
  // Поиск наименьшего положительного элемента
  number:=0;
  min:=a[i];
  For i:=1 to n do
   if (a[i]>0) and (a[i]<=min)
    Then
      Number:=i;
 
  Writeln('Otvet: ',number);
  Readln;
end.

Остальные задачы через массив делать или без?
0
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 8
17.02.2012, 22:23  [ТС] 3
спасибо огромное! это был не массив) я таки поняла как это делать и всё сама сделала, а вот с массивами беда
Если осилишь, помоги пожалуйста)
Вычисление суммы элементов массива, расположенных в конце массива, причем складывать нужно, начиная от конца массива, столько элементов, пока сумма не превысит значения 20.5 (или не будут сложены все элементы). Длина массива вводится с клавиатуры. Печатать сумму и количество сложенных элементов
Тип данных вещественный, печатать элементы по 6 штук. по формату :10:3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2012, 22:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Заполнение масива по формуле и нахождение наименьшего положительного элемента масива
Итак условие задачи: Написать программу для заполнения масива з 20 элементов по формуле...

Вывести на экран произведение наименьшего по модулю отрицательного и наименьшего положительного элемента
Организовать ввод последовательности из N чисел и получить и вывести на экран произведение...

Нахождение наименьшего положительного периода функции
Определить, является ли функция f(x)=sin(5x)/(c0as(4x)-2) периодической, и найти ее наименьший...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.