Вычислить сумму и количество элементов последовательности, значения которых больше 0, но меньше 1

@rem19888 · Регистрация: 20.12.2012

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

!!!Очень нужна помощь Написать программу для решения следующей задачи: вычислить сумму и количество тех элементов данной конечной числовой последовательности, значения которых больше нуля, но мень*ше единицы

@Own3D · 20.12.2012, 11:47

если правильно понял задание

Pascal

uses crt;
const
   n=5;
var
   a:array[1..n] of real;
   sum:real;
   i,count:integer;
begin
clrscr;
writeln('Ââåäèòå [',n,'] ÷èñåë ïîñëåäîâàòåëüíîñòè.');
for i:=1 to n do
    begin
    write('Ââåäèòå [',i,'] ÷èñëî: ');
    readln(a[i]);
    if (a[i]>0) and (a[i]<1) then
       begin
       sum:=sum+a[i];
       inc(count);
       end;
    end;
writeln('Ñóììà ÷èñåë 0<x<1 = ',sum);
writeln('Êîë-âî òàêèõ ÷èñåë = ',count);
end.

n-выставишь в зависимости сколько чисел тебе нужно в последовательности.

@rem19888 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 3
		1
	Вычислить сумму и количество элементов последовательности, значения которых больше 0, но меньше 1 20.12.2012, 10:43. Показов 2053. Ответов 1 Метки нет (Все метки) !!!Очень нужна помощь Написать программу для решения следующей задачи: вычислить сумму и количество тех элементов данной конечной числовой последовательности, значения которых больше нуля, но мень*ше единицы 0

	20.12.2012, 11:47

Вычислить сумму и количество элементов последовательности, значения которых больше 0, но меньше 1

Решение