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

Question

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

Answer 1

35

studnn

31 июля 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: