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

30.01.2013, 19:00. **Показов** 9783. **Ответов** 2

Студворк — интернет-сервис помощи студентам

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

@земное ядро · 30.01.2013, 19:25

Вот! Написал.

Pascal

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.

@GggDrej · 30.01.2013, 20:25

6ез использования массивов:

Pascal

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.

Niyaz Usmanov
		1
	Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти 30.01.2013, 19:00. Показов 9783. Ответов 2 Метки нет (Все метки) Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

Опции темы

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

Решение