Помогите. С программой

Question

Помогите. С программой. Вывести на экран массив состоящий из двухзначных чисел А (10). Удалить первый четный элемент. (паскаль)

Answer 1

37

killer79

15 апреля 2023

var a: array [1… 10] of integer; del: array [1… 10] of boolean; i: integer; flag: boolean; begin flag: =true; for i: =1 to 10 do read (a[i]); for i: =1 to 10 do if a[i] mod 2=0 then begin del[i]: =true; flag: =false; break; end else del[i]: =false; if flag then writeln ('Четных нет') else for i: =1 to 10 do if not del[i] then write (a[i], '); end.

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

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

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

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

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