Опишите на русском или одном из языков программирования алгоритм вычисления разности максимального среди элементов, имеющих четные значения, и максимального среди элементов, имеющих нечетные значения, в заданном целочисленном массиве из 30 положительных элементов (в предположении, что в массиве есть и четные, и нечётные элементы).
const
n = 30;
var
r,i,k,xmax,ymax: integer;
mas: array[1..n] of integer;
begin
xmax := -1;
ymax := -1;
begin
for i := 1 to n do readln(mas[i]);
if (mas[i] mod 2 = 0) and (mas[i] >= xmax) then
xmax := mas[i];
if (mas[i] mod 2 <> 0) and (mas[i] >= ymax) then
ymax := mas[i];
end;
k := xmax - ymax;
writeln(k)
end.
Описывал на pascal ABC.net
выдаёт совершенно другой ответ, помогите найти ошибку.
Другие языки программирования и технологии
Программирование на pascal
begin, которая перед for перенеси после do
Mandrichenko Ilya
Cпасибо
70 77 38 2 90 37 30 41 59 95 84 18 39 49 65 68 29 83 78 12 73 45 34 45 94 47 51 48 51 96
max 4etn = 96, max ne4etn = 95
----------------------------
82 43 22 46 58 64 43 54 45 93 9 24 55 29 27 19 54 6 1 3 8 55 46 14 55 93 18 71 100 38
max 4etn = 100, max ne4etn = 93
----------------------------
20 56 93 41 40 55 45 58 89 32 66 65 88 6 54 95 38 57 26 31 1 77 61 64 11 47 74 83 5 38
max 4etn = 88, max ne4etn = 95
----------------------------
42 53 98 78 60 40 40 62 100 74 3 1 25 94 77 5 62 58 93 60 14 82 10 72 12 4 18 53 84 74
max 4etn = 100, max ne4etn = 93
----------------------------
58 97 80 23 35 20 71 96 13 25 62 27 24 99 51 61 46 86 56 72 62 18 39 4 44 65 51 38 57 7
max 4etn = 96, max ne4etn = 99
----------------------------
12 9 10 80 15 66 69 36 75 32 56 41 81 73 79 56 11 86 55 10 29 12 67 34 3 74 49 6 54 44
max 4etn = 86, max ne4etn = 81
----------------------------
47 39 3 80 62 26 70 24 27 68 60 28 16 21 63 56 44 24 21 15 97 98 22 68 92 76 24 74 57 54
max 4etn = 98, max ne4etn = 97
----------------------------
67 56 10 28 99 6 49 73 8 74 80 92 33 75 69 76 59 90 79 12 83 53 10 81 14 70 54 89 91 53
max 4etn = 92, max ne4etn = 99
----------------------------
14 9 49 48 12 83 54 84 84 57 91 21 50 51 57 3 87 16 56 51 36 10 67 55 36 3 44 86 78 96
max 4etn = 96, max ne4etn = 91
----------------------------
13 56 70 39 66 80 74 22 57 7 13 73 29 44 70 22 46 26 48 42 45 78 77 28 99 6 44 94 19 11
max 4etn = 94, max ne4etn = 99
----------------------------
40 31 64 39 10 52 30 76 17 3 84 19 98 57 62 93 85 93 85 60 96 43 8 89 35 75 90 39 30 89
max 4etn = 98, max ne4etn = 93
----------------------------
31 24 79 53 78 57 77 96 70 46 42 26 25 63 67 47 94 90 8 77 74 66 61 4 58 41 76 61 5 74
max 4etn = 96, max ne4etn = 79
----------------------------
70 22 16 81 65 17 23 13 32 54 21 13 80 89 4 26 84 78 60 19 43 5 88 28 62 39 44 15 59 2
max 4etn = 88, max ne4etn = 89
----------------------------
27 19 11 79 14 84 64 2 26 30 4 73 64 87 47 25 87 9 38 5 7 87 8 4 13 92 56 3 11 32
max 4etn = 92, max ne4etn = 87
----------------------------
59 64 42 30 16 51 36 1 67 31 18 15 67 26 76 39 26 84 21 73 46 82 78 70 76 52 10 71 99 30
max 4etn = 84, max ne4etn = 99
----------------------------
29 85 77 64 83 78 53 94 41 86 9 14 42 24 4 27 36 68 18 72 60 41 86 31 28 32 51 49 55 29
max 4etn = 94, max ne4etn = 85
----------------------------
66 100 39 89 59 36 12 54 33 25 34 49 94 35 56 49 19 9 7 2 72 42 60 17 31 79 31 79 47 49
max 4etn = 100, max ne4etn = 89
----------------------------
89 2 14 63 24 13 49 76 55 33 76 62 28 51 31 91 84 79 88 23 1 12 67 82 66 19 65 55 70 58
max 4etn = 88, max ne4etn = 91
----------------------------
65 81 39 40 23 61 58 33 30 11 18 44 49 22 5 48 62 32 60 55 49 78 26 69 99 76 15 83 42 17
max 4etn = 78, max ne4etn = 99
----------------------------
80 28 9 37 3 45 20 37 31 12 95 12 33 50 73 26 76 89 72 2 47 4 76 76 93 78 35 74 98 97
max 4etn = 98, max ne4etn = 97
----------------------------
22 13 8 14 36 98 96 43 4 56 63 43 19 87 63 91 60 39 7 81 46 34 88 68 23 17 24 27 68 37
max 4etn = 98, max ne4etn = 91
----------------------------
89 49 75 22 75 28 55 63 38 8 33 94 77 22 22 57 20 19 82 55 17 78 77 76 61 51 60 43 35 25
max 4etn = 94, max ne4etn = 89
----------------------------
84 14 15 39 5 31 50 98 58 6 52 39 23 77 59 76 59 55 100 57 31 20 88 72 74 51 42 95 71 76
max 4etn = 100, max ne4etn = 95
----------------------------
max 4etn = 96, max ne4etn = 95
----------------------------
82 43 22 46 58 64 43 54 45 93 9 24 55 29 27 19 54 6 1 3 8 55 46 14 55 93 18 71 100 38
max 4etn = 100, max ne4etn = 93
----------------------------
20 56 93 41 40 55 45 58 89 32 66 65 88 6 54 95 38 57 26 31 1 77 61 64 11 47 74 83 5 38
max 4etn = 88, max ne4etn = 95
----------------------------
42 53 98 78 60 40 40 62 100 74 3 1 25 94 77 5 62 58 93 60 14 82 10 72 12 4 18 53 84 74
max 4etn = 100, max ne4etn = 93
----------------------------
58 97 80 23 35 20 71 96 13 25 62 27 24 99 51 61 46 86 56 72 62 18 39 4 44 65 51 38 57 7
max 4etn = 96, max ne4etn = 99
----------------------------
12 9 10 80 15 66 69 36 75 32 56 41 81 73 79 56 11 86 55 10 29 12 67 34 3 74 49 6 54 44
max 4etn = 86, max ne4etn = 81
----------------------------
47 39 3 80 62 26 70 24 27 68 60 28 16 21 63 56 44 24 21 15 97 98 22 68 92 76 24 74 57 54
max 4etn = 98, max ne4etn = 97
----------------------------
67 56 10 28 99 6 49 73 8 74 80 92 33 75 69 76 59 90 79 12 83 53 10 81 14 70 54 89 91 53
max 4etn = 92, max ne4etn = 99
----------------------------
14 9 49 48 12 83 54 84 84 57 91 21 50 51 57 3 87 16 56 51 36 10 67 55 36 3 44 86 78 96
max 4etn = 96, max ne4etn = 91
----------------------------
13 56 70 39 66 80 74 22 57 7 13 73 29 44 70 22 46 26 48 42 45 78 77 28 99 6 44 94 19 11
max 4etn = 94, max ne4etn = 99
----------------------------
40 31 64 39 10 52 30 76 17 3 84 19 98 57 62 93 85 93 85 60 96 43 8 89 35 75 90 39 30 89
max 4etn = 98, max ne4etn = 93
----------------------------
31 24 79 53 78 57 77 96 70 46 42 26 25 63 67 47 94 90 8 77 74 66 61 4 58 41 76 61 5 74
max 4etn = 96, max ne4etn = 79
----------------------------
70 22 16 81 65 17 23 13 32 54 21 13 80 89 4 26 84 78 60 19 43 5 88 28 62 39 44 15 59 2
max 4etn = 88, max ne4etn = 89
----------------------------
27 19 11 79 14 84 64 2 26 30 4 73 64 87 47 25 87 9 38 5 7 87 8 4 13 92 56 3 11 32
max 4etn = 92, max ne4etn = 87
----------------------------
59 64 42 30 16 51 36 1 67 31 18 15 67 26 76 39 26 84 21 73 46 82 78 70 76 52 10 71 99 30
max 4etn = 84, max ne4etn = 99
----------------------------
29 85 77 64 83 78 53 94 41 86 9 14 42 24 4 27 36 68 18 72 60 41 86 31 28 32 51 49 55 29
max 4etn = 94, max ne4etn = 85
----------------------------
66 100 39 89 59 36 12 54 33 25 34 49 94 35 56 49 19 9 7 2 72 42 60 17 31 79 31 79 47 49
max 4etn = 100, max ne4etn = 89
----------------------------
89 2 14 63 24 13 49 76 55 33 76 62 28 51 31 91 84 79 88 23 1 12 67 82 66 19 65 55 70 58
max 4etn = 88, max ne4etn = 91
----------------------------
65 81 39 40 23 61 58 33 30 11 18 44 49 22 5 48 62 32 60 55 49 78 26 69 99 76 15 83 42 17
max 4etn = 78, max ne4etn = 99
----------------------------
80 28 9 37 3 45 20 37 31 12 95 12 33 50 73 26 76 89 72 2 47 4 76 76 93 78 35 74 98 97
max 4etn = 98, max ne4etn = 97
----------------------------
22 13 8 14 36 98 96 43 4 56 63 43 19 87 63 91 60 39 7 81 46 34 88 68 23 17 24 27 68 37
max 4etn = 98, max ne4etn = 91
----------------------------
89 49 75 22 75 28 55 63 38 8 33 94 77 22 22 57 20 19 82 55 17 78 77 76 61 51 60 43 35 25
max 4etn = 94, max ne4etn = 89
----------------------------
84 14 15 39 5 31 50 98 58 6 52 39 23 77 59 76 59 55 100 57 31 20 88 72 74 51 42 95 71 76
max 4etn = 100, max ne4etn = 95
----------------------------
Азамат Шералиев
42 614
Похожие вопросы
- Здравствуйте! помогите пожалуйста выполнить зачётные задания по программированию на Pascal
- Программирование на PASCAL
- 1.Рекурсия в языке программирования Borland Pascal 7.0. 2.Понятие и виды информации. Ее свойства.
- Программирование. Матрицы. Pascal.
- программирование в pascal. Даны 3 числа. Определить сколько среди них нулей
- Помогите с программированием на Pascal ABC
- С чего лучше начать изучение программирования? С Pascal или можно сразу с Java?
- Олимпиадная задача по программированию в Pascal (Free, ABC.net) 10 класс! Помогите решить?)
- Программирование на Pascal
- ИКТ. Программирование на Pascal Turbo