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

Question

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

Answer 1

58

iczeva

05 марта 2023

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.

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: