ТутРешу.Ру

Вводится 15 чисел. Определите среди них целые числа

Задание:

Вводится 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.




Знаете другой ответ?

Отправить свой ответ