лабораторная работа / вар4 / Лаб5

Балаковский институт техники технологий и управления

Лабораторная работа №5

Вариант 4

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: Найдите количество элементов массива с целыми и дробными значениями.

Текст программы:

program lab5;

var

a:array[1..20] of real;

n,i,c,d:byte;

begin

Writeln('Введите количество элементов');

read(n);

Writeln('Введите массив');

for i:=1 to n do Read(a[i]);

for i:=1 to n do

begin

if a[i]=trunc(a[i]) then

c:=c+1;

else

d:=d+1;

end;

writeln('Целых ',c);

writeln('Дробных ',d);

end.

нет

да

c=c+1

d=d+1

Рис.1 Блок–схема программы