Паскаль массив просто
Дан массив из различных чисел. Вывести на экран только дробные элементы этого массива и вычислить их сумму и количество. Спасибо!
В данном случае условие отбора может выглядеть так:
[syntax='Delphi']
if Trunc(A)<>A then ...
[/syntax]
[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]
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, если вы их видете в первый раз то зачем вам программы ??
А вот так сдают студенты зачет по информатике на заочном отделении. Что делать, если там где мы работаем требуют высшее образование, скажите зачем это нужно учителю русского языка, немецкого? Спасибо за программы!!!