Спросите у пользователя, сколько нужно проанализировать чисел…

Question

Спросите у пользователя, сколько нужно проанализировать чисел, а затем запросите эти числа и сделайте для каждого вывод, является ли оно четным илиотрицательным. (Паскаль)

Answer 1

45

nebelnest

09 августа 2022

var a: array [1… 100] of integer; n, i: integer; flag: boolean; begin write ('Введите количество чисел: '); readln (n); for i: =1 to n do begin write (i, '-ое число='); readln (a[i]); end; for i: =1 to n do begin write (i, '-оечисло '); if a[i] < 0 then begin write ('отрицательно'); flag: =true; end; if a[i] mod 2=0 then begin write ('четно'); flag: =true; end; if not flag write ('никакое'); flag: =false; writeln; end; end.

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

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

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

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

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