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

Question

Информатика

Витяся

10 августа, 05:52

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

+3

Ответы (1)

Знаете ответ на вопрос?

Анна · Answer 1

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.