Даны натуральное число n, действительные числа a1,...,an
А) Верно ли что отрицательных членов в последовательности а1,...,ан
больше чем положительных?
Б) Верно ли что наибольший член последовательности а1,...,ан по модулю
больше единицы?
| Код | const
K=10; {число членов в последовательности}
var
A: array[1..K] of real;
N: integer; {число отрицательных членов}
P: integer; {число положительных членов}
I: integer;
Max: real; {максимальное по модулю значение члена последовательности}
begin
for i:=1 to K do
begin
Write('Введите ',I,'-й член последовательности A[',I,']= ');
ReadLn(A[I]);
end;
N:=0;
P:=0;
for I:=1 to K do
if A[I]<>0 then
if A[I]>0 then P:=P+1
else N:=N+1;
WriteLn('Число положительных членов в последовательности = ',P);
WriteLn('Число отрицательных членов в последовательности =',N);
if N>P then WriteLn('Отрицательных членов больше, чем положительных')
else WriteLn('Отрицательных членов не больше, чем положительных');
Max:=0;
for I:=1 to K do
if abs(A[I])>max then Max:=Abs(A[I]);
if Max>1 then WriteLn('Максимальное по модулю значение больше единицы')
else writeln('Максимальное по модулю значение не больше единицы');
ReadLn;
end.
|
Помогите сделать чтоб был выбор вводить из файла или вручную, и переделать затем это все под си. |