Задание:
Вводится 15 чисел. Определите среди них целые числа. На программе Pascal ABCNET как сделать, подскажите пожалуйста! =) Буду весьмаблагодарен!)
Решение:
Program abcnet; var a: array[1… 15] of integer; i: integer; beginfor i: =1 to 15 doread (a[i]); for i: =1 to 15 doif a[i]>0 then write (a[i]: 3); end.
Знаете другой ответ?