Вычислить сумму и количество положительных значений функции

petyshki

вычислить сумму и количество положительных значений функции
5 ответов

petyshki

функции какой? и сколько всего значений?


petyshki

короче функция cos x и количество значений 20 произвольных


petyshki

var i, sum: integer;
x, s: real;
a: array [1//20] of real;
begin
writeln('vvedite 1<=x<=1 20 raz:');
s:=0;
sum:=0;
for i:=1 to 20 do
begin
read(x);
a[i]:=cos(x);
writeln(a[i]);
if (A[i]>0)then
begin
sum:=sum+1;
s:=s+a[i];
end;
end;
writeln('chislo polozhitelnyh znacheniy: ', sum);
writeln('ih summa: ', s);
readln;
end.


petyshki

а с помощью While и repeat можно?


petyshki

Да. Но не принято. С массивами в основном через for pаботают.
var i, sum: integer;
x, s: real;
a: array [1..20] of real;
begin
writeln('vvedite 1<=x<=1 20 raz:');
s:=0;
sum:=0;
i:=1;
while i<=20 do
begin
read(x);
a[i]:=cos(x);
writeln(a[i]);
if (A[i]>0)then
begin
sum:=sum+1;
s:=s+a[i];
end;
i:=i+1;
end;
writeln('chislo polozhitelnyh znacheniy: ', sum);
writeln('ih summa: ', s);
readln;
end.
var i, sum: integer;
x, s: real;
a: array [1..20] of real;
begin
writeln('vvedite 1<=x<=1 20 raz:');
s:=0;
sum:=0;
i:=1;
repeat
begin
read(x);
a[i]:=cos(x);
writeln(a[i]);
if (A[i]>0)then
begin
sum:=sum+1;
s:=s+a[i];
end;
i:=i+1;
end;
until i<=20;
writeln('chislo polozhitelnyh znacheniy: ', sum);
writeln('ih summa: ', s);
readln;
end.