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

Дан массив целых чисел. все элементы,оканчивающиеся цифрой 4,уменьшить вдвое на языке с
Гость
Ответ(ы) на вопрос:
Гость
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы