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

Question

Информатика

Муля

28 марта, 12:28

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

+5

Ответы (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.