Вводится 15 чисел. Определите среди них целые числа. На программе Pascal ABCNET как сделать, подскажите пожалуйста!!=)Буду весьма благодарен!!))

1

Ответы и объяснения

2013-09-26T18:54:16+04:00
Program abcnet;
var a:array[1..15] of integer;
     i:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 15 do
if a[i]>0 then write(a[i]:3);
end.