89

Решите задачу: дан массив из N целых элементов. Замените четные элементы массива…

22 марта 2023

Решите задачу: дан массив из N целых элементов. Замените четные элементы массива на число 10

категория: информатика



40

Uses crt; const N=10; var a: array[1… N] of integer; x: integer; begin for x: =1 to N do begin write ('a[',x,']: '); readln (a[x]); if a[x] mod 2=0 then a[x]: =10; end; writeln; for x: =1 to N do writeln ('a[',x,']: ',a[x]); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...