Developing.ru

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

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

[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]

Вы шутите? Я эти знаки в первый раз вижу! Если не трудно мне нужна вся программа...

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

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