Дан одномерный массив А из 20 элементов. Найти наибольший из отрицательных элементов массива; наименьший из положительных элементов массива(0 считать положительным числом). Вывести на экран исходный массив и найденные элементы. Если в массиве нет положительных(отрицательных) элементов, вывести на экран соответствующее сообщение.
Адель
11.05.2007 14:16
var a:array[1..20] of integer; i,max,min:integer; f:boolean; begin randomize; for i:=1 to 20 do begin a[i]:=random(20)-10; write(a[i],' '); end; writeln; max:=0; f:=true; for i:=1 to 20 do begin if f and (a[i]<0) then begin max:=a[i]; f:=false; end; if (a[i]<0)and(a[i]>max)then max:=a[i]; end; f:=true; min:=-1; for i:=1 to 20 do begin if f and (a[i]>=0) then begin min:=a[i]; f:=false; end; if (a[i]>=0)and(a[i]<min)then min:=a[i]; end; if max=0 then writeln('max=none') else writeln(max); if min=-1 then writeln('min=none') else writeln(min);
что то типо, но не 100% верно...
Beseech
11.05.2007 15:19
Большое спс Адель,задача получилась
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.