PDA

Просмотр полной версии : Паскаль массив просто



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

MOTOCoder
11.04.2008, 19:06
В данном случае условие отбора может выглядеть так:

if Trunc(A[i])<>A[i] then ...

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

MOTOCoder
11.04.2008, 19:48
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.

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

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