47

Дан массив целых чисел

fragof 13 апреля 2023

Дан массив целых чисел. Все элементы, оканчивающиеся цифрой 4, уменьшить вдвое на языкес

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

58

1234567891011121314151617 Var A: array[1… 100] of integer; i,n: byte; Begin write ('Введите размерность: '); readln (n); For i: =1 to n do Begin write ('A[',i,']='); readln (A[i]); End; writeln ('Преобразованный'); For i: =1 to n do Begin if A[i] mod 10=4 then A[i]: =A[i]-2; write (A[i]: 4); End; readln; End.

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

Знаете другой ответ?
Другие вопросы по информатике

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