обявить целочисленный массив если в случайно заданном массиве
встретится четное число то заменить мах если нечетоное то на мин
Полная версия: помогите решить задачу
о господи 
var a:array [1..100] of integer;
Min,i,max: integer;
begin
min:=0;
max:=1;
for i:=1 to 100 do a[i]:=random(100);
for i:=1 to 100 do
begin
if a[i]>max then max:=a[i];
if a[i]<min tnen min:=a[i];
end;
for i:=1 to 100 do
begin
if a[i] mod 2 = 0 then a[i]:=max
else a[i]:=min;
end;
end;
Цитата
о господи
Угу... Вот именно... Что это ты сделал, можно узнать, amega? Смотри сюда: Вот исходный массив, и массив после замены... Ничего не замечаешь странного?54 59 71 84 60 85 54 84 42 62 64 38 43 29 89 5 96 27 38 47
79 81 52 47 56 39 92 83 7 33 8 64 2 36 83 95 77 14 87 87
97 47 79 80 46 52 78 67 11 72 63 58 14 53 94 75 52 10 41 47
26 18 77 73 45 21 56 13 1 32 61 14 61 22 61 38 94 90 68 44
35 61 43 90 69 9 6 96 66 65 67 17 21 35 12 75 31 60 36 32
97 0 0 97 97 0 97 97 97 97 97 97 0 0 0 0 97 0 97 0
0 0 97 0 97 0 97 0 0 0 97 97 97 97 0 0 0 97 0 0
0 0 0 97 97 97 97 0 0 97 0 97 97 0 97 0 97 97 0 0
97 97 0 0 0 0 97 0 0 97 0 97 0 97 0 97 97 97 97 97
0 0 0 97 0 0 97 97 97 0 0 0 0 0 97 0 0 97 97 97
if a[i]<min tnen min:=a[i];
Некорректно min находится, ситуации с таким условием не должно возникнуть.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.