Задание:
Помогите. С программой. Вывести на экран массив состоящий из двухзначных чисел А (10). Удалить первый четный элемент. (паскаль)
Решение:
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.
Знаете другой ответ?