Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
Niyaz Usmanov
1

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти

30.01.2013, 19:00. Просмотров 5757. Ответов 2
Метки нет (Все метки)


Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.01.2013, 19:00
Ответы с готовыми решениями:

Даны числа от 1 до n Найти среднее арифметическое только тех чисел Которые больше числа x вводимого с клавиатуры
Здравствуйте, нужна ваша помощь! Даны числа от 1 до n Найти среднее арифметическое только тех...

Определить сумму тех вещественных чисел, которые больше P
Даны натуральное число n и вещественные числа b1, b2,...,bn. Определить сумму тех вещественных...

Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.
Даны натуральные числа от 1 до 100.Найти сумму только тех чисел, которые оканчиваются на 3.

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

__________________
Помогаю в написании студенческих работ здесь.
2
3 / 3 / 6
Регистрация: 30.01.2013
Сообщений: 37
30.01.2013, 19:25 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот! Написал.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var
   a: array [1..4] of real;
   sum: real;
   i: integer;
begin
     sum:=0;
     writeln('Ââåäèòå ÷åòûðå äåéñòâèòåëüíûõ ÷èñëà');
     for i:=1 to 4 do
         begin
         readln(a[i]);
         if a[i]>5 then sum:=sum+a[i];
         end;
     writeln('Ñóììà ÷èñåë, êîòîðûå áîëüøå 5, ðàâíà ',sum,'.');
end.
0
73 / 73 / 64
Регистрация: 21.01.2013
Сообщений: 147
30.01.2013, 20:25 3
6ез использования массивов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var summ,a: real;
     q: integer;
begin
     summ:=0;
     write('Введите числа: ');
     for q:=1 to 4 do
         begin
          read(a);
          if a>5 then summ:=summ+a;
         end;
     writeln('Сумма: ',summ);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2013, 20:25

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

Найти сумму тех чисел, которые больше заданного М
вводить в переменную x последовательно 25 чисел x. найти сумму тех чисел которые > заданного М...

Даны числовой ряд и некоторое число e>0. Найти сумму тех членов ряда, которые по модулю больше или равны e
Даны числовой ряд и некоторое число e>0. Найти сумму тех членов ряда, которые по модулю больше или...

Массивы: Найти произведение тех чисел, которые больше заданного числа
2. Дана последовательность целых положительных чисел. найти произведение тех чисел, которые больше...

Найти произведение только тех чисел, которые больше заданного числа
дана последовательность целых положительных чисел. найти произведение только тех чисел, которые...


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

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

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