Developing.ru

Дан массив из различных чисел. Вывести на экран только дробные элементы этого массива и вычислить их сумму и количество. Спасибо!

В данном случае условие отбора может выглядеть так:
[syntax='Delphi']
if Trunc(A)<>A then ...
[/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);
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]

Света7, если вы их видете в первый раз то зачем вам программы ??

А вот так сдают студенты зачет по информатике на заочном отделении. Что делать, если там где мы работаем требуют высшее образование, скажите зачем это нужно учителю русского языка, немецкого? Спасибо за программы!!!