Консультация № 189410
18.05.2016, 17:01
0.00 руб.
0 3 1
Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль:
Найдите количество элементов массива с целым и и дробным \и
значениями

Обсуждение

давно
Профессионал
153662
1070
18.05.2016, 21:01
общий
это ответ
Здравствуйте, amelya.kuro!
Такой вариант:
[code lang=pascal]var
x: array[1..10] of real;
i, a, b: integer;
begin
a:= 0;
b:= 0;
{создаем массив x}
writeln('vvedite chisla massiva');
for i:= 1 to 10 do
readln(x[i]);
for i:= 1 to 10 do
write(x[i]:3);
writeln;
{считаем целые и дробные элементы}
for i:= 1 to 10 do
if frac(x[i]) = 0 then
inc(a)
else
inc(b);
{выводим результат}
write('kol-vo chelyh elementov ');
writeln(a);
write('kol-vo drobnyh elementov ');
writeln(b);
end.[/code]
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Неизвестный
28.05.2016, 18:52
общий
как можно заменить frac и inc?
давно
Профессионал
153662
1070
29.05.2016, 19:38
общий
Код:
a:= a + 1;
b:= b + 1;

Функция Frac возвращает дробную часть аргумента..
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Форма ответа