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.
Овал-Начало или конец
Параллелограм-ввод и ввывод
Ромб-принятие решений
Прямоугольник-выполнение действия
2 - ctrl, 3 шт. или тг.,4- А . В 5 - 6,04;27,04;17,04,6 - Правило Больше 3, 7 С8, 8- 1
1 - название таблицы, 2 - легенда,3 - рабочая область, 4 - таблица осей
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>