Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Fear Beast
2 / 2 / 0
Регистрация: 17.05.2010
Сообщений: 39
1

Заменить все элементы, меньшие двух, нулями и вычислить сумму членов, принадлежащих отрезку [3; 7]

30.06.2012, 10:15. Просмотров 1158. Ответов 1
Метки нет (Все метки)

Всем привет. Помогите пожалуйста написать код.
Задача следующая:

Даны натуральное число n и действительные числа х1, х2, … xn. Составьте программу, заменяющую все члены последовательности, меньшие двух, нулями и вычисляющую сумму членов, принадлежащих отрезку [3; 7], а так же их количество.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2012, 10:15
Ответы с готовыми решениями:

Заменить все элементы массива А, не принадлежащих отрезку [1,3]
Помогите с решением пожалуйста) Я вот тут попробовал решить, но не получается) Задан...

В последовательности все числа меньшие двух заменить нулями и получить сумму членов, принадлежащих интервалу
Даны натуральное число n, действительные числа a1,a2,a3,..., an. В этой последовательности все...

Получите сумму членов, принадлежащих отрезку [3,7]
Помогите пожалуйста Дано натуральное число n, задан входной поток данных: действительные числа...

Получить сумму членов последовательности, принадлежащих отрезку
Собственно вот... Даны натуральное число n, действительные числа x1, … , xn. В...

В каждой из двух матриц все отрицательные элементы заменить нулями
даны 2 матрицы одинакового размера.в каждой из двух матриц все отрицательные элементы заменить...

1
Reveng
422 / 422 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
30.06.2012, 10:34 2
Лучший ответ Сообщение было отмечено Fear Beast как решение

Решение

Цитата Сообщение от Fear Beast Посмотреть сообщение
Всем привет. Помогите пожалуйста написать код.
Задача следующая:

Даны натуральное число n и действительные числа х1, х2, … xn. Составьте программу, заменяющую все члены последовательности, меньшие двух, нулями и вычисляющую сумму членов, принадлежащих отрезку [3; 7], а так же их количество.
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
uses crt;
var
   n : integer;
   Mas :array [1..50] of real;
   i, count : integer;
   sum : real;
BEGIN
ClrScr;
Write('N = ');
Readln(n);
for i := 1 to n do
 Read(Mas[i]);
sum := 0;
count := 0;
for i := 1 to n do
 if Mas[i] < 2 then Mas[i] := 0
  else if (Mas[i] >= 3) and (Mas[i] <= 7) then
   begin
   sum := sum + Mas[i];
   count := count + 1;
   end;
Writeln('New array: ');
for i := 1 to n do
 Write(Mas[i]:6:2);
Writeln;
Write('Result: ','Summa = ', sum:6:2, '; Kol-vo = ', count);
Readln;
END.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2012, 10:34

Получить количество отрицательных членов последовательности и число членов, принадлежащих отрезку
Дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...

Получить количество отрицательных членов последовательности и число членов принадлежащих отрезку
дано натуральное n и целые a1...an. Получить количество отрицательных членов последовательности и...

В последовательности все неотрицательные члены, не принадлежащие отрезку [1, 2], заменить нулями
даны натуральное число n, действительные числа a1, a2 ...an. в последовательности a1, a2 ...an все...


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

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

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