Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дан массив целых чисел. все элементы,оканчивающиеся цифрой 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.