Задание:
Дан массив целых чисел. Все элементы, оканчивающиеся цифрой 4, уменьшить вдвое на языкес
Решение:
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.
Знаете другой ответ?