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

Ответы 1

  • 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.

    • Автор:

      laneuxpz
    • 4 года назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years