MOTOCoder » 11 апр 2008, 19:48
[syntax='Delphi']
const
N=10;
var
A:array [1..N] of Real;
I:integer;
Sum:real;
C:integer;
begin
writeln('Введите ',N,' чисел');
for i:=1 to N do
readln(A);
Sum:=0;
C:=0;
for i:=1 to N do
if Trunc(A)<>A then
begin
write(A:0:5,' ');
Sum:=Sum+A;
Inc(C);
end;
writeln;
writeln;
writeln('Сумма = ',Sum:0:5);
writeln('Количество = ',C);
readln;
end.
[/syntax]
[syntax='Delphi']
const
N=10;
var
A:array [1..N] of Real;
I:integer;
Sum:real;
C:integer;
begin
writeln('Введите ',N,' чисел');
for i:=1 to N do
readln(A[i]);
Sum:=0;
C:=0;
for i:=1 to N do
if Trunc(A[i])<>A[i] then
begin
write(A[i]:0:5,' ');
Sum:=Sum+A[i];
Inc(C);
end;
writeln;
writeln;
writeln('Сумма = ',Sum:0:5);
writeln('Количество = ',C);
readln;
end.
[/syntax]